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AVERTISSEMENT 


Si vous voulez utiliser connectement Les programmes de ce 
Livre, Lisez attentivement Les conseils suivants 


e Pour éviter tout problème au moment du £ancement du pro- 
gramme par £a commande RUN, appuyez sur Le bouton du RESET 
sous £a machine. Ceci afin de s'assurer que L'on est bien dans 
Le mode TEXT, que Les feux de caractères sont bien ceux d'oni- 
gine et qu'aucun POKE ne viendra troub£er £a bonne marche du 
programme. Un POKE#396 ,#1999 par exemple (pour accélérer £a 
népétition des touches du clavier] ralentit de 39 % L'exécu- 
tion du programme et b£oque £a machine Lors de L'utilisation 
de L'instruction WAIT. 


e Si vous n'obtenez pas Les mêmes résultats que sur Les exem- 
plêes, vérifiez bien toutes Les Lignes et surtout celles conte- 
nant des DATA, 


e Pour gagner en rapidité d'exécution dans £es jeux d'adresse, 
toutes Les définitions de caractères graphiques sont placées 
en fin de Listing bien qu'elles soient utilisées en priorité. 
Dans Le même souci, vous pouvez trouver centaines instructions 
NEXT non suivies d'une variable (gain de 20 à 30 %). 


e Dès que Les programmes sont entrés dans L'ORIC, sauvez+£es 
sur votre magnétophone. Pour Les programmes {1è4 Longs, &£ est 
vivement conseillé d'effectuer une première sauvegarde au mi- 
Lieu de Leur frappe. N'attendez pas qu'ils soient entièrement 
entrés et testés... une coupure de courant est 44 vite arrivée ! 
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CHAPITRE 1 


JEUX D'ADRESSE 
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GRENOUILLE 


Si vous croyez que la vie d'une grenouille est de tout repos, 
vous allez vite changer d'idée. Car l'héroïne de ce programme 
s'est endormie sur son nénuphar et rêve qu'elle se trouve au 
bord d'une route et d'une rivière, qu'elle doit traverser pour 
regagner les rochers salutaires de l'autre rive. 


Après avoir lancé le programme, vous pouvez manoeuvrer votre 
grenouille latéralement avec les flèches de déplacement à qgau- 
che et à droite. Vous devez la faire sauter en utilisant la 
barre d'espacement. Attention à bien viser entre les véhicu- 
les qui défilent impitoyablement, sinon vous perdrez à coup sûr 
une des trois vies qui vous sont allouées à chaque début de 
partie. 


Ouf ! vous êtes sur le bord de la rivière. Il vous faut main- 
tenant emprunter un tronc d'arbre, ou un crocodile, pour aller 
sauter sur l'un des rochers. Mais alors la pauvre grenouille 
se retrouve à nouveau sur le bord de la route. 


Son rêve ne cessera que lorsqu'elle aura regagné successive- 
ment les cinq rochers. 


Alors, à vos bonds, prêt, partez !... 


À la fin de chaque partie, relevez votre score (en haut à 
gauche de l'écran) et enfoncez n'importe quelle touche pour un 
autre jeu. 
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Initialisation 
de la fonction 
Print AT X,Y. 


Initialisation 
des caractères 
graphiques 


Afficher 

le jeu 
Nombre de 
vies = 2 

Nombre de 
rochers = 


X et Y = 
coordonnées de 
la arenoville 





Afficher la 
grenouille 
a X,Y 


Afficher 
les 8 lignes 
d'objets 


Modifier les 
pointeurs des 


&lignes d'objet 









Afficher le 
nombre 
de points. 


Points - 
Points + 40 


Rochers = 
Rochers +4 


QUE 


oui 


Points = 
Points + 50 


hon 
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Îi 
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oui Y-Y-2 
Points =points+1 


hon 


C $- caractère 
Sous la 
grenoville 








Sur les oui 
cas 


hon 


Sur les 
froncs d arbr Vies = 
t vies - À 
oui GE 
hon 
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+ 
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18 REM GRENOUILLE 
DA IREM secure nveunres 

38 GOSUB 1800 

40 V=2:PLOT 24,0,CHR$(1)+"VIES: 2" 

50 [=0 

99 X=18:Y=24:C$=" " 

144 PIUT X,Y, 107: AX=X: AY=Y 

1104 A=2:FOR I=1 TO 8 

120 !1,[#2+A; MIDS(LS(I),D(1),36); 

130 IF I=4 THEN A=6 

140 NEXT I 

150 IF Y=2 THEN 2500 

500 FOR I=1 TO 7 STEP 2 

510 D(T)=D(T)+1:1F D(1)=25 THEN D(I)=1 

520 D(I+1)=D(1+1)-1:1F D(I+1)=0 THEN D(I+1)=24 

530 NEXT Î 

540 PLOT 5,0, "POINTS: "+STRS(P) 

580 REM ----------"" 

599 REM DEPLACEMENTS 

600 AS=KEYS 

610 IF AS=CHRS(Q) THEN X=X+1 

620 IF AS=CHRS(B) THEN X=X-1 

630 IF A$=" " THEN Y=Y-2:P=P+1 

b49 1F AY=14 OR AY=12 OR AY=24 THEN PLOT AX,AY," " 

650 C$=CHRS(SCRN(X,Y)) 

660 IF Y>14 AND C$<>" " THEN 2000 

670 IF Y<12 AND C$=" " THEN 2000 

680 IF X<3 OR X>36 THEN 2080 

690 IF AY<>Y THEN 100 

700 IF Y=4 OR Y=8 THEN X=X-1 

710 IF Y=6 OR Y=18 THEN X=X+1 

720 GOTO 108 

980 REM ------------" 

999 REM INITIALISATION 

1000 FOR I=#400 TO #419 

1910 READ A:POKE I,A 

1920 NEXT I:DOKE#2F5, #400 

1930 DATA #20,4#96, #D9, #AC, #F8, #02, 4#C8,#8C, #69, #2, #A5,#1F 
1840 DATA #A4: #20, #85, #12, #84; #13, #A9, #3B, #20, #DB, #CF, #4C, #61, #CB 
1050 FOR 1-0 10 95+16+40 

1060 READ A:POKE 46856+I,A 

1970 NEXT I 

1988 DATA 15,18,34,63,32,63,36,24,48,8,4,63,1,63,9,6 
1098 DATA 3,4,8,63,32,63,18,12,56,36,34,63,1,63,9,6 

1100 DATA 62,38,38,62,63,63,36,24,31,17,17,31,31,63,9,6 
1110 DATA 3,7,9,9,9,9,7/,3,0,32,48,48,48,48,32,0 

1126 DATA 48,56, 36, 36,36,36,56,48,0,1,3,3,3,3,1,0 

1138 DATA 12,45,63,12,12,30,18,51,63,63,63,63,63,63,63,63 
1140 DATA 63,63,63,63,63,63,18,12,63,63,63,63,63,63,0,0 
1150 DATA 0,0,32,48,31,13,7,63,0,0,0,0,63,63,63,63,0,0,0,0,32,48,62 










































1160 DATA 0,0,1,3,62,44,56,63,0,0,0,0,1,3,31,63 


1208 L$(1)="qg1l11h oppppq gl1llh oppppq glilih 
1210 1$(2)="jlli jili jili jiii jili 
1224 1$(3)=1$(1) 

1230 1$(4)=1$(2) 

1244 L$(5)="emnnm cd emnnm cd emnnm cd emnnm cd emnnm 
cd # 

1254 L$(6)="mmf - ab mmf ab mmf ab mmf ab mmf 
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1270 
1300 
1310 
1320 
1330 
1380 
13908 
1408 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1980 
1990 
2000 
20810 
2020 
2030 
2040 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
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L$(7)=L$(5) 
L$(8)=L$(6) 
FOR I=1 TO 7 STEP 4 
D(I1)=1:D(1+1)=30 
D(I+2)=5:D(1+3)=25 
NEXT I 

REM --------------- 
REM COULEURS 

PAPER 6:INK 7 

POKE 618,18:CLS 

FOR I=1 TO 25 

READ A:READ B:PLOT 
NEXT I 
DATA 7,0,7 x 
DATA 1,3,1 ; 
PLOT:2:2:7 1 
RETURN 

REM --------------- 

REM PERDU 

EXPLODE 

V=V-1 

IF V<O THEN ZAP:GET A$:RUN 

PLOT 25,0,"VIES:"+STRS(V) 

GOTO 90 

REM --------------- 

REM GAGNE 

PING 

T=T+1:P=P+10 

IF T=5 THEN GOSUB 147@:P=P+50:GOTO0O 50 
PLOT X-1,Y," # 

GOTO 98 


So © 
s à 
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LE PROGRAMME 


Lignes 30 à 99 : initialisation 


Cette première partie du programme appelle le sous-programme 
en 1999 qui exécute les tâches suivantes : 


1- Définition du programme en Assembleur PRINT AT X,Y. Il s'agit 
du programme décrit à la page 141 du manuel de l'ORIC (li- 
gnes 1999 à 1949). 


2- Définition des caractères graphiques contenus dans les datas 
(lignes 1959 à 116%). 


3- Définition du tableau L# contenant les objets à déplacer sur 
l'écran et les pointeurs correspondants (tableau D, lignes 
1299 à 1339). 


4- Placer les codes des couleurs pour le papier et l'encre dans 
chaque ligne de l'écran (lignes 149Y à 148%). 


Les variables X et Y donnent la position de départ de la 
grenouille et C$ le caractère sur lequel elle est posée. 


Lignes 109 à 540 : Le jeu 


Après l'affichage de la grenouille et la sauvegarde de ses 
coordonnées dans AX et AY, on place sur l'écran les chaînes de 
caractères du tableau L$ à partir des pointeurs D() en utili- 
sant la fonction PRINT AT. 


Si la grenouille est déjà sur la ligne 2 de l'écran (ligne 
159), on va en 2599 pour le comptage des rochers. 


» 


Les lignes 599 à 539 modifient le tableau des pointeurs D 
pour le déplacement des objets. 


Lignes 609 à 720 : déplacement 


En fonction de la touche qui vient d'être appuyée, on modifie 
les variables X et Y. On place dans C$ le caractère qui corres- 
pond à ces nouvelles coordonnées. 


Si C$ est différent d'un espace et que la grenouille se trou- 
ve sur la route (ligne 66%), on va en 299 pour la phase 
"PERDU". Idem quand C$ est égal à un blanc et que la gre- 
nouille est sur la rivière (ligne 67). 


Si la grenouille dépasse les limites de l'écran (en ligne 
689), on va aussi en 299. 


La grenouille devant suivre le cours de l'eau, on la déplace 
à droite où à gauche suivant qu'elle se trouve sur un tronc 
d'arbre ou un crocodile (lignes 799 et 719). 


Lignes 2DP0 à 2540 : perdu et gagné 


Si l'on a perdu une vie, on décrémente le compteur V, et 
, , 
l'on revient au jeu uniquement si V est encore supérieur à ÿ. 


Si l'on a gagné, on incrémente le compteur de rochers T de 1 
et le compteur de points de 19. Si T est inférieur à 5 on con- 
tinue le jeu, sinon on recommence une partie en incrémentant 
le compteur P de 5% points. 


E3 
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DATE NOM DU PROGRAMME : PAGE 
GRENOUILLE 1/1 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 


er É 
(07 /Q Us 





Utilisée pour le déplacement des 
objets A=2 : lignes du haut, 
A=6 : lignes du bas 


lEnG 
TETE 


Tableau 


Anciennes coordonnées de la 
grenouille 


Oo > [> [> 
A |< |>x LL 


© 


RU MR ES EE 


0 
Chaînes d'objets 
Nombre de points 





Compteur 


Compteur 








{*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c Editions du P.S.I. 

















—+ u 
<# 
RS 


611380 
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INCENDIE 


Après le lancement du programme, un décor se dessine lente- 
ment sur l'écran. 


Dans le ciel des étoiles, et au milieu de l'écran, une mai- 
son, une ambulance et deux pompiers. Ces derniers doivent 
rattraper tous les personnages (1, puis 2, puis 3 jusqu'à 19) 
qui tombent de la maison en feu et les mettre dans l'ambulance. 


Vous les manoeuvrez avec les touches Q (vers la gauche) et 
P (vers la droite). 


Vous gagnez un point quand l'un des personnages atteint 
l'ambulance. Par contre vous perdez une des trois vies qui vous 
sont données au départ quand l'un des bonhommes s'écrase au 
sol. De plus, au bout de 5% points, vous gagnez une nouvelle 
vie. 


De quoi peut-être faire naître une vocation ! 
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Initialisation 


des caracteres 
graphiques 












Initialisation 
des compteurs 
N,S,T et P 


Dessin 
du jeu 


Afficher 


le nombre 
de vies 


Afficher 
le drap 





Afficher 


le personnage 









touche + Modifier la 
appuyée ? position 
non 


person- Qui Drap non 3 
9 


non 





ovi eo 
< non 


Incrémenter oui 
position du 
personnage Fin 
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es personi es 
dans émbuladce 
? 
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19 REM INCENDIE 

DO -REN == soumet 

36 DIM X(14),Y(14),C(14) 

48 GOSUB 1808 

59 N=1:P=1:S=2:T=0 

1806 CLS:PAPER @:INK 1 

110 GOSUB 3000 

120 IF KEY$="" THEN 128 

179 REM -------------"--- 

180 REM LE JEU 

190 GOSUB 2000 

200 PLOT 18,21,AS(P) 

210 FOR 1=1 TO N 

228 P(I)=0 

230 NEXT I 

240 I-0 

250 REPEAT:1=1+1 

269 IF I=1 THEN 308 

270 IF P(I-1)=3 THEN PLOT 8,13+INT(RND(1)+.5)#3,"a 
280 CS=KEYS: P=P+(C$="P")#(P<3)-(C$="Q")#(P>1) 

290 IF P(I-1)<6 THEN 508 

306 IF P(I)>14 THEN 500 

318 PLOT 16,21,A$(P) 

320 IF P(I1)=0 THEN PLOT 8,13," ":PLOT 8,16," ":GOTO 340 
330 PLOT X(P(I)),Y(P(I))," " 

348 P(I)=P(I)+1 

350 IF P(I1)<>15 THEN 380 

369 T=T+1:1F T/50=INT(T/50) THEN S=S+1:GOSUB 2000 
370 PLOT @,06,STR$(T):GOTO 588 

380 PLOT X(P(1)),Y(P(I)), CHRS(C(P(I1))+96) 

399 FOR J=1 TO 12-N 

400 CS=KEYS:1F J<6 THEN P=P-(C$="Q")#{(P>1)+(C$="P")#(P<3):PLOT 10,2 
1,A$(P) 

410 NEXT J 

428 IF Y(P(I))=28 THEN PING:PLAY 06,0,6,8:IF SCRN(X(P(I)),21)=32 THE 
N 780 

509 UNTIL I=N 

505 J=0 

519 REPEAT: J=J+1 

520 IF P(J)<15 THEN PULL:GOTO 248 

530 UNTIL J=N 

550 N=N+1:1F N>10 THEN N=10 

569 GOTO 190 

680 REM ----------------- 

690 REM PERDU 

700 PLOT X(P(I)),20," " 

710 PLOT X(P(I)),21,"d" 

728 SHOOT:S=S-1 

730 WAIT 25:GOSUB 2000 

740 P(I)=16 

750 IF S>-1 THEN 500 

768 IF KEYS$="" THEN 760 

776 PULL:GOTO 50 

989 REM ----------------- 

999 REM GRAPHIQUES 

1808 DATA 12,12,8,62,42,43,8,28,0,4,52,61,30,22,18,2 
1918 DATA 4,5,55,62,11,9,8,0,30,12,12,12,63,41,45,45 
1828 DATA 12,12,9,36,44,44,12,30,0,33,30,0,0,0,0,0,12,12,36,30,13,1 
3,12,30 

1825 DATA 31,27,17,27,31,63,15,6,63,57,57,63,63,63,3,1,0,0,0,60,60, 
62,48, 32 

1938 FOR I=8 TO 79 
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1040 READ A:POKE 46856+I, A 

1859 NEXT I 

1869 DATA 10,14,1,10,17,2,11,20,3,12,17,2,13,14,1,14,17,2,15,20,3 
1878 DATA 16,17,2,17,14,1,18,17,2,19,20,3,20,17,2,21,14,3,22,17,2 
1980 FOR I=1 TO 14 

1898 READ X(I),Y(I),C(I) 

1180 NEXT I 

1118 A$(1)="efg . 

1120 A$(2) efq . 

1130 A$(3) 

1149 RETUR 

1988 REM ----------------- 
1990 REM AFFICHE LES e 
2088 PLOT 24,8," “ 
2018 IF S<=9 THEN 2050 
2028 FOR J=1 TO S 

2638 PLOT 23+J,0,"e" 

2048 NEXT J 

2850 RETURN 

2988 REM ------------""- 
2998 REM DESSIN DU JEU 
3008 POKE 616,12:PRINT 
3028 PRINT "I----- 1" 

3030 PRINT "I # 1 1" 
3048 PRINT “I j--" 
3058 PRINT “| 1" 
3868 PRINT "I # 1 1" 
3078 PRINT "I js 


nu 
2 = 
® 
mn 
Le] 
= 


3080 PRINT " (is 
3090 PRINT " # 11" 
3100 PRINT " Hosts 
3110 PRINT * 
FLAG PRINT Mrs rss Es ses sers : 
3130 FOR I=1 TO 10 

3140 PLOT RND(1)#35+2,RND(1)#12,CHR$(2)+"*" 

3150 NEXT I 

3500 RETURN 





19 


L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 39 à 1209 : initialisation 


Pour connaître la position des personnages et les caractères 
graphiques qui s'y rapportent, on dimensionne trois tableaux 
X, Y et C. Ceux-ci sont remplis par le sous-programme 1994. 
C'est aussi ce sous-programme qui définit les caractères gra- 
phiques. 


Après l'effacement de l'écran, on affiche le jeu par le sous- 
programme en 3999. 


Lignes 199 à 560 : Le jeu 


Le sous-programme en 2ÿÿ affiche des personnages en haut de 
l'écran pour indiquer au joueur le nombre de vies restantes. 


Chaque personnage a une position bien déterminée contenue 
dans le tableau P. Celui-ci est donc remis à zéro aux lignes 
219 à 239. 


Comme on sort des boucles par des gotos lors du jeu, on uti- 
lise des fonctions REPEAT/UNTIL plutôt que des fonctions FOR/ 
NEXT. 


La variable N donnant le nombre de personnages à récupérer, 
on effectue cette boucle de 1 à N le nombre de fois qu'il faut 
pour qu'ils soient tous dans l'ambulance. 


Les personnages apparaissent au balcon uniquement si le pré- 
cédent a déjà couvert trois positions (ligne 27), et ils sau- 
tent uniquement quand le précédent en est à six positions 
(ligne 294). 


Le caractère saisi par KEY$ en ligne 289 permet de détermi- 
ner la position du drap (variable P). On utilise pour cela une 
expression logique pour modifier la valeur de P (ligne 28#). 
Pour permettre de bouger plus rapidement le drap, on repète 
cette ligne en 4ÿÿ. 


Quand un personnage atteint la position 15 (l'ambulance), on 
incrémente le compteur de points T (ligne 36ÿ). Si T est divi- 
sible par 59, on ajoute une vie (compteur S). 

Dans le cas où un personnage arrive sur le sol, on teste 
directement sur l'écran par la fonction SCRN(X,Y) la présence 
du drap (ligne 42ÿ). Si le caractère trouvé à cet endroit est 
32 (un blanc), on va à la ligne 799 pour la fin du jeu. 


Les lignes 595 à 539 testent si tous les personnages sont 
dans l'ambulance. Si ce n'est pas le cas, on sort du REPEAT/ 
UNTIL par une instruction PULL. 


Tous les personnages étant arrivés à bon port, on incrémente 
le compteur N pour agrandir la famille au prochain tour (ligne 
559). 


Lignes 3PDD à 3500 : dessin du jeu 


Le POKE de la ligne 3ÿ@9 indique au Basic que le prochain 
PRINT doit être affiché à la ligne 12 de l'écran. 
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DATE NOM DU PROGRAMME : PAGE 
INCENDIE 1/1 


IDENTIFICATION des VARIABLES 





Dessin du drap pour les trois 
tableau | [A1]  Jocsttions 
_ 
F 


oO |> 
A KL 


on 
< 


Indice 


Variable 





I 
J 








Tableau 


Compteur 





Compteur 





Toutes les coordonnées possibles 
des personnages 


Tableau 
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611980 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c Editions du P.S.I. 
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L'ORIC A L'AFFICHE 


AUTOROUTE 


Aidez ce fou du volant qui a pris l'autoroute sur la voie 
inverse à faire le plus de kilomètres possibles sans accidents. 


Pour lui faire éviter tout ce qui surgit en face de lui, pi- 
lotez sa voiture à l'aide des touches Q et P (directions gauche- 
droite). 


Si par malheur un accident se produisait quand même, la voi- 
ture effectuera une belle sortie de route. 


Le programme donne alors le nombre de kilomètres parcourus 
sans accident. 


En tapant sur une touche du clavier, vous retrouverez le 
conducteur imprudent qui a plus que jamais besoin de vous. 
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10 
20 
30 
40 
50 
60 
70 
80 
180@ 
110 
120 
130 
154 
160 
180 
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288 
210 
220 
230 
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400 
480 
490 
500 
545 
514 
520 
530 
540 
550 
560 
570 
584 
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600 
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620 
‘630 








L'ORIC A L'AFFICHE 





REM AUTOROUTE 
REM --------- 
PAPER @:1INK 2:CLS 


DATA 51,55,63,55, 3,51,59,63,59,59,48,48,48 


99,: 53 

DATA dd 11,15, 11,3,1,48, 48, 48, 59, 68, 52, 48, 32 
DATA 1,3,11, 15, 1i 36,932)! 48, 52, 60, 52, 56, 24, 40 
DATA 5,5,55,55, 63, ,55,55,0,40, 40, 59, 59, 63, 59, 59, 32 
DATA 63,63,63, 63, 63 , 63,63, 63° 

FOR 1=6 TO 71 

READ A:POKF 46856+1,A 

NEXT I 

PRINT CHR$S(17); CHRS(6) 

X=20:T=0 

MUSIC 1,0,1,8:PLAY 7,0,4,10@ 

REMCESSS SSSR sss 

REM LE JEU 


A=[INT(RND(1)*#22)+13 
POKE 616,24:POKE 617,1:PRINT:PRINT 


PRINT TAB(A+6);CHRS(27);"D'j"ef" 
PRINT "  ‘";CHRS(27); "Bi"; :PRINT TAB(A); CHR$S(27);"Dgh"; 
PRINT TAB(47-A); CHR$(27); "Bi": PRINT 

AS=KEYS 

X=X+(A$="Q")-(AS="P") 

T=1+] 


PLOT 34,8,STRS$S(T) 
PLOT X,0,CHR$S(1)+"ab" 
PLOT X,1,CHR$(1)+"cd" 
IF SCRN(X+1,2)>100 OR SCRN(X+2,2)>100 THEN 508 
GOTO 200 
REM ------------------- 
REM FIN ... 
EXPLODE:WAIT 20 
X=X+1 
FOR I=0 TO 5 
PLOT X-I,1,32:PLOT X-I-1,1+1,"a 
PLOT X+[+1,1,32:PLOT X+[+2,1+1,"b" 
PLOT X-XI,1+1,32:PLOT X-[I-1,]1+2,"c 
PLOT X+1+1,1+1,32:PLOT X+[+2,1I+2,"d" 
SHOOT: WATT 15 
NEXT T 
CLS 
PLOT 14,11,CHR$S(18@)+CHR$S(7)+"SCORE: "+STRS(T) 
PLOT 10,12,CHR$S(1@)+CHR$S(5S)+"SCORE: "+STRS(T) 
IF KEYS="" THEN 610 
CLS 
GOTO 154 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Ligne 30 à 160 : initialisation 


On place à partir du caractère "a" la représentation graphi- 
que des voitures ainsi que celle du bord de la route. 


La variable X donne la position de départ de la voiture du 
joueur et T le nombre de kilomètres parcourus. 


Lignes 209 à 409 : Le jeu 


Le nombre aléatoire contenu par la variable A donne l'empla- 
cetent de la voiture en sens inverse. Celle-ci est affichée 
simplement par une fonction PRINT ce qui a pour effet de faire 
monter l'écran de deux lignes vers le haut. Les deux instruc- 
tions POKE de la ligne 219 donnent au Basic l'emplacement sur 
l'écran de la prochaine instruction PRINT (simulation d'un 
PRINT AT X,Y). 


La ligne 259 teste le sens de déplacement du joueur. Si un 
déplacement est effectué, on modifie la valeur de la variable 
X avant d'afficher à l'écran le dessin de la voiture (lignes 
319 et 329). 


Si des caractères supérieurs à 199 (caractères des voitures) 
sont en face du joueur (testés par SCRN(,)), on va directement 


» 


à la fin du jeu (ligne 59). 


Lignes 509 à 630 : fin de partie 


Des caractères supérieurs à 19ÿ se trouvant devant la voiture 
du joueur, on simule un accident en l'affichant dans tous les 
sens. Puis l'on signale le nombre de kilomètres parcourus avant 
de revenir à une autre partie. 
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DATE NOM DU PROGRAMME : PAGE 


IDENTIFICATION des VARIABLES 















X Nombre de kilomètres parcourus 


[l Position de la voiture du j 






















































(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite((c Editions du PSI. 
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L'ORIC A L'AFFICHE 


SLALOM 


Quoi de plus propice qu'une bonne piste de ski pour exercer 
ses talents d'agilité et d'endurance ? 


En lançant le programme, vous vous retrouverez directement 
parmi les sapins pour le slalom le plus long du monde. 


Le skieur se manoeuvre à l'aide des touches de déplacement 
vers la gauche et vers la droite. Le nombre de points gagnés 
s'inscrit selon les conditions suivantes : 


- une porte passée vaut 1 point ; 
- une porte ratée fait perdre 5 points. 

Le score final s'affiche sur la piste quand le skieur heurte 
un obstacle (sapins ou piquets). 


Alors, prêts pour une descente ? 
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REM SLALOM 

REM === 

GOSUB 1000 

ES=CHRS(27):B$=ES$+"W": VS=ES$+"B":R$=ES+"A": NS=ES+"É": FB$=ES+"G" 
CLS:INK @:PAPER 7 

X=20:T=0:C=8:V=0:5S=3 


DOKE 616,282:PRINT 
REM <---mmmmsss 
REM LE JEU 
A=INT(RND(1)#15)+17 
IF SCRN(X,2)>97 OR SCRN(X+1,2)>97 THEN 300 
IF T/8<>INT(T/8) THEN 160 
PRINT TAB(A);R$;" m m'; NS 
PRINT B$;FB$; CHRS(A+48); NS; TAB(A);R$;"n n"; NS 
GOTO 268 
IF T/3<>INT(T/3) THEN 190 
PRINT TAB(A);V$; "1"; NS:PRINT TAB(A);V$;"k1"; NS 
GOTO 200 
PRINT: PRINT 
T=T+1:PLOT 34,0, STR$(V) 
CS=KEYS:IF C$<>"" THEN C=ASC(CS) 
IF C=8 THEN PLOT X,8,"ab":PLOT X,1,"cd":IFX>6 THEN X=X-1 
IF C=9 THEN PLOT X,@,"ef":PLOT X,1,"gh":IFX<30 THEN X=X+1 
P=SCRN(1,1): IF P=32 THEN 270 
IF X>P-51 AND X<P-43 THEN V=V+1 ELSE V=V-5 
GOTO. 100 
REM --------- 
REM PERDU ..… 
SHOOT 
PLOT 20,7,CHR$(18)+CHRS$(4)+"SCORE: "+STRS(V) 
PLOT 28,8, CHR$(18)+" SCORE: "+STRS(V) 
GET A$ 
GOTO 50 
REM mens uuues 
REM GRAPHIQUES 
@ DATA 3,3,1,7,15,11,19,12,32,32,0,48,56, 40,48, 40 
@ DATA 6,3,2,2,3,2,21,10,37,42,53,40,48,32,0,0 
6 DATA 1,1,0,3,7,5,3,5,48,48,32,56,60,52,50,52 
@ DATA 41,21,43,5,3,1,0,0,24,48,16,16,48,16,42,20 
@ DATA 1,1,3,3,7,7,15,15,0,0,32,32,48,48,56,56 
6 DATA 31,31,63,63,3,3,3,3,60,60,62,62,32,32,32,32 
6 DATA 1,3:7,19,31,63,4,1,1,1,1,1,1,1,1,1 
6 FOR I=@ TO 111 
@ READ A:POKE 46856+I,A 
@ NEXT I 
@ RETURN 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 39 à 79 : initialisation 


Après la définition des caractères graphiques, on place dans 
des chaînes de caractères les codes couleur de papier et d'en- 
cre nécessaires dans l'élaboration du jeu (voir liste des va- 
riables). Puis la ligne 6ÿ initialise à 29 la position de dé- 
part du skieur sur l'écran (variable X). 


Le POKE de la ligne 7% indique au Basic que la prochaine 
instruction PRINT doit commencer à la ligne 26. De ce fait, 
toutes les instructions PRINT qui vont suivre effectueront au- 
tomatiquement un scroll sur l'écran puisque c'est la dernière 
ligne. 


Lignes T0D à 270 : Le jeu 


Le nombre aléatoire contenu dans A donne la position sur 
l'écran des prochains piquets ou sapins (ligne 19). 


Avant de les afficher, on teste par la fonction SCRN si 
l'écran est vide devant le skieur. Si ce n'est pas le cas, on 
va en 399 pour la fin du jeu. 


Le compteur T indique au programme le nombre de lignes déjà 
passées. Si celui-ci est divisible par 8 on affiche à l'écran 
deux piquets à partir de la position donnée par A (lignes 12ÿ 
à 159). Dans la première colonne de cette ligne, on affiche un 
caractère de code A+4ÿ pour connaître par la suite la position 
des piquets. Ce caractère étant écrit en blanc sur fond blanc, 
il reste invisible sur l'écran. 


Par contre, si le compteur T est divisible par 3, on effec- 
tue la même opération, mais cette fois-ci pour un sapin (lignes 
169 à 189). 


Suivant le code du caractère saisi dans la variable C$, on 
affiche à la position X un skieur vers la droite ou vers la 
gauche et on incrémente ou l'on décrémente X de la même façon. 


La ligne 259 teste le premier caractère de la ligne pour dé- 
tecter la présence des piquets. 


Si c'est le cas, on compare ce caractère avec la position du 
skieur. 


En dehors des limites des piquets, on décrémente de 5 le 
compteur de points V, sinon on l'incrémente de 1. 
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NOM DU PROGRAMME : PAGE 
SLALOM 1/1 


IDENTIFICATION des VARIABLES 


&E Nombre aléatoire : position des 
Variable X piquets du sapin 

FIRE 
HR 











Boucle FOR/NEXT 





Couleur : encre noire 


Caractère sur le bord de l'écran : 
indique la présence des piquets 








Couleur : encre rouge 





Nombre de lignes déjà passées 
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Couleur : encre verte 





Position du skieur 





























6:1980 


{*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite( )Editions du P.S.I. 
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L'ORIC À L'AFFICHE 


CHENILLE 


Vous devez constituer une chenille en avalant tous les élé- 
ments apparaissant sur l'écran. 


Ils sont de deux sortes : les bons qui donnent un bonus (ceux 
qui ont de grandes oreilles), et les autres qui en font perdre 
un (ceux qui ont les bras levés). 


Le compte des bonus s'affiche en haut à droite de l'écran 
il faut bien sûr avoir ce compteur supérieur à # pour prétendre 
manger un "anti-bonus". 


La chenille s'allonge à chaque élément qu'elle avale. Elle 
se déplace toute seule, le joueur devant modifier sa trajec- 
toire avec les flèches gauche et droite du clavier. 


Mais attention à ne pas heurter le bord du tableau ou à en- 
rouler entièrement la chenille sur elle-même. 


A chaque tableau réussi succède un nouveau tableau comportant 
un nombre de plus en plus important d'éléments. Ne vous décou- 
ragez surtout pas au premier tableau : la dextérité s'acquiert 
très vite. 
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REM CHENILLE 

REM --------.c 

GOSUR 1448 

DIM X(241),Y(201) 

+t=0: [T=0 

RÉM:<d armées 

REM DESSIN OU JFU 

P=1:Q=1-1-0:E=F+10:IF crane THEN F=200 
DX=0:DY=-1:X(1)=17:Y(1)=12:R=0 
INK @:PAPFR 3:ÛLS 
FOR I= 2 10 35 
PLOT 1,2,160:PLOT 1,25,160 
IF 1<26 CHEN PLOT 2:1,164:PIOT 35,1,160 
NEXI | 
PLOT X(1),Y(1),97 
FOR Tai TO F 
X=[NICRND(1)#30)+4: Y=INT(RND(1)*22)+2 
IF SCRN(X,Y)<>32 THEN 198 
LF IoF/2 IHEN PLOT X,Y,99 FLSE PILOT X,Y,100 
NEXT I 


PIOT 4,1,CHRS(1)+"POINTS: 

PILOT 25,1, CHR$SCI)+"BONUS: 

PILOT 12, 1, STRSETT ):PLOI Lo erRatE 
GET D$:GOT0 418 

RFM ------------- 

RFM LE FU 

NS=KEYS: [IF D$="" THEN 380 


FF NY=4 THEN 354 

IF D$S=CHRS(H) THEN DX=DY:GOTQ 344 
Dx=-DY 

HY=û: GOT 384 

FF PS<2CHRS(9) THEN DY=NX:GOTO 37/4 
DY=-pXx 

nx=û 

PILOT X(F),Y(P),98 

AP=P:PzP+l.lt P=242 THEN P=] 
X(F)=X(AF)+DX:Y(P)=Y(AP)+0Y 

TF Rae )<o42 THEN 5404 
PILOT X(Q),Y(U) 


O=04+ 1: TR ar THEN (Q=1 
PLOT X(F),Y(F) 

aoTo 344 

REM errant 


REM FLEMENT RENCONIRE 7? 
A=SCRN(X(F),Y(F)) 

1F A=164 OR A=98 THEN 848 

[F A=299 THEN R=h+1:GO0T0 554 

TF Bz4 THEN &4ub 

R=R-1] 

F=T+l: TT=TT+1 

PLOT 12,1,STR$SOTT):- PILOT 32,1,STR$S(B)+" " 
IF F=F IHFN ZAP:GO0T0 1604 

PING: G0T0 444 

REM ------------------- 

RFM ss 

PLOT 12,1,STRS(TT):PLOT 32,1,STRS$S(B): SHOOT 
FLOT X( ne Y(0),32 

O=0+1: (F O=242 THEN O=1 

IF O<>F THEN 818 

GFT AS 
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i 854 GOTO 58 . 


989 REM ------------------- 
999 REM GRAPHIQUES 


1004 
1910 
1820 
1930 
1100 
1110 


FOR I=0 TO 31 

READ A:POKE 468564+I, A 

NEXT ! 

RETURN 

NATA 12,22,39,63,59,39,30,12,12,30,63,63,63,63, 30,12 
DATA 54.8,B,28,62,42,8,54,34,42,42,62,62,28,20,54 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 30 à 59 : initialisation 


Après la définition des caractères graphiques par le sous- 
programme en 1999, on dimensionne deux tableaux X et Y pour 
connaître à tout moment la position des éléments qui composent 
la chenille. 


Le compteur E donne le nombre d'éléments à éliminer, tandis 
que TT compte le nombre de points de toutes les parties. 
Lignes 100 à 260 : dessin du feu 

Après l'effacement de l'écran et le dessin du cadre (lignes 
129 à 169), on affiche aléatoirement sur l'écran les deux sor- 
tes d'éléments (code 99 et 19). 

Lignes 3P0P à 459 : Le jeu 


Si une touche est appuyée, on modifie en conséquence les 


incréments de direction DX et DY (lignes 399 et 37ÿ). Puis l'on 
affiche à la place de la tête de la chenille, pointée par la 
variable P (code 97), un élément du corps (code 98). 


Après l'incrément de P, on modifie le contenu de X(P) et 
Y(P) avec les incréments DX et DY (ligne 4ÿÿ). 


Si un élément est rencontré (testé par SCRN en ligne 41%), 
on va en 599 pour identification. 


Dans le cas contraire, on efface le dernier élément de la 
chenille pointé par la variable Q. Cette dernière variable est 
incrémentée dans la limite des tableaux X et Y. 


Pour terminer cette partie du programme, on affiche la tête 
de la chenille aux coordonnées pointées par P. 


Lignes 50 à 580 : élément rencontré 


Si l'élément rencontré est le bord ou la chenille (code 16% 
et 98), on va directement en ligne 899 pour la fin du jeu. 


Par contre, s'il s'agit d'un bonus, on incrémente le compteur 
B. 


Puisqu'il ne reste plus que les "anti-bonus'" à tester, on va 
en ligne 899 pour la fin du jeu si le compteur B est à zéro. 


Dans l'autre cas, on décrémente la variable B. 


La variable T indique le nombre d'éléments déjà éliminés. On 
la compare donc à E pour connaître le moment de fin d'un ta- 
bleau. Si ces deux variables sont égales, on va en ligne 14% 
où le compteur E est incrémenté de 1ÿ pour le nouveau tableau 
(dans la limite de 299 éléments). 
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NOM DU PROGRAMME : PAGE 
CHENILLE 1/1 


IDENTIFICATION des VARIABLES 


ORIGINE 
9 OBSERVATIONS 
S SJ 
IE, 
à Q 
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X la chenille 








Compteur 
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Pointeur de la queue de la chenille 
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Coordonnées de chaque élément de 
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(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite((c Editions du P.S.I. 
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L'ORIC A L'AFFICHE 


CIRCUIT 24 


Eviterez-vous la voiture infernale de l'ordinateur qui roule 
en sens inverse, tout en passant sur chaque portion du circuit? 


Deux commandes sont nécessaires à votre déplacement : la 
touche P pour vous diriger vers le centre et la touche Q pour 
aller vers l'extérieur. 


Dès le début de la course, trois parties gratuites vous sont 
allouées. Chaque déplacement donne un point. Les points sont 
affichés en haut de l'écran à chaque déplacement vers le centre 
ou vers l'extérieur. Si vous passez sur toutes les portions du 
circuit, une nouvelle piste s'affiche avec le total général et 
le jeu reprend de plus belle. 


Bonne chance... et pas d'imprudence ! 


SCORE: 148 
TOTAL: ZZE 
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18 REM CIRCUIT 24 
20 REM -------"------- 

34 GOSUB 2806 

50 FOR 1=1 TO PG:PLOT 25+1,0,"a ".NEXT I 

98 A=AI 

180 POKE P,46:P=P+T 

118 IF PEEK(P)=32 THEN POKE P,46:G=G+1:IF G-228 THEN 3000 
128 POKE P,V(C):POKE PO, A: PO=PO+#TC 

134 A1=PEEK(PO):POKE PO, V(CO) 

149 1F L<LO THEN S=-1 

158 IF L>LO THEN S=1 

168 IFS<HANDPEEK(PO+T(CO+S))=32AND(PEEK(PO+T(CO))=320RPEEK(PO+TC)= 
46) THEN900 

170 IF PEEK(P+T)=V(CO) THEN 3000 

180 IF PEEK(P+T)=32 OR PEEK(P+T)=46 THEN 216 
199 C=C+1:IF C=6 THEN C=2 

208 T=T(C) 

216 BS=KEYS:IF BS$S<>"" THEN A$=BS 

220 IF A$="P" THEN 700 

230 IF A$="Q" THEN 800 

240 IF PEEK(PO+TC)=32 OR PEEK(PO+TC)=46 THEN 90 
250 CO=CO-1:1F CO=1 THEN CO=5 

268 TC=T(CO) 

270 GOTO 100 

689 REM ------------------ 

690 REM DEPLACEMENT CENTRE 

700 IF PEEK(P+T(C+1))<>32 THEN 248 

710 POKE P,46 

720 P=P+T(C+1)+T(C+1) 

736 L=L-1:1F L<1 THEN L=1 

758 PLOT 19,0,STRS(G) 

768 A$="":GOTO 240 

780 REM ------------"---- 

798 REM DEPLACEMENT EXTERIEUR 

800 IF PEEK(P+T(C-1))<>32 THEN 240 

810 POKE P,46 

820 P=P+T(C-1)+T(C-1) 

830 L=L+1 

848 PLOT 19,0,STR$S(G) 

850 A$="":G010 240 

880 REM ------------------ 

898 REM DEPLACEMENT ORIC 

906 POKF PO, AI 

918 PO=PO+T(CO+S)+T(CU+S) 

924 LO=10+5:S=0 

944 A1=PFEK(PO) 

948 GOTO 178 

18864 STOP 

1989 REM -----------"- 

1998 REM GRAPHIQUES 

2084 DATA 4,12,306,12,45,63,45,0,0,7,18,63,63,18,7,0 
2414 DATA 9,0,6,0,0,6,0,6,0,56,18,63,63,18,56,0 
2426 DATA 6,45,63,45,12,30,12,0 

2038 DATA 63,0,0,0,0,0,0,63,33,33,33,33,33,33,33, 33 
2048 DATA 63,33, 43, 33,33, 33,33,63 

2050 FOR I=0 TO 63 

2068 READ A:POKE 46856+I, A 

2878 NEXT I 

2088 CLS:PAPER 1:INK 0 

2118 FOR K=1 TO 12 STEP 2 

2129 FOR I=4 TO 38-K2 

2148 PLOT [+K,K+3,"F" 


ri 
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2150 PLOT I+K,25-K,"f" 

2160 IF 1>26-K»*2 THEN GOTO 2196 

2176 PLOT K+4,1+K-1,"g" 

2180 PLOT 38-K,I+K-1,"q" 

2199 NEXT 

2208 PLOT K+4,K+3,"h": PLOT38-K,K+3,"h":PLOT K+4,25-K,"h":PLOT 30-K 
,25-K,"h" 

2210 NEXT 

2228 FOR I=1 TO 4 

2238 PLOT 16,4+1#2,"h h" 

224@ PLOT 16,14+1*2,"h h" 

2250 IF I=2 THEN PLOT 7,14," “.PLOT 21,14," “:GOTO 2300 
2260 IF I=4 IHEN 2308 

2278 PLOT 7,12+1,"hhhh" 

2288 PLOT 21,12+1,"hhhh" 

2300 NEXT I 

2319 PG=3:TP=0 

2320 PLOT 13,0,"SCORE:" 

2380 REM -------------- 

2399 REM INITIALISATION 

2400 P=48247:P0=48949 

2418 T(1)=-40:T(2)=1:1(3)=40:T(4)=-1:T(5)=-48:T(6)=1 
2436 T=1:TC=-40 

2440 A1=32 

2450 C=2:C0=5:L1=5:L0=5 

2468 S=0 

2476 V(1)=97:V(2)=108:V(3)=101:V(4)=98:V(5)=97:V(6)=100 
2500 RETURN 

DABOREM---==" 2-25 

2998 REM FIN DE PARTIE 

3008 POKE PO,32:POKE P, 32 

3018 IFG=228THENPG=PG+1:ZAP ELSE EXPLODE 
3026 PG=PG-1:TP=TP+G:G=0:PLOT 13,2, "TOTAL: "+STRS(TP) 
3038 PLOT 19,0," “ 

30406 FOR K=2 TO 11 STEP 2 

3050 FOR 1=5 TO 38-Kx2 

3060 PLOT I+K,K+3," " 

3076 PLOT 1+K,25-K," " 

3080 IF I>27-K*2 THEN GOTO 3118 

3090 PLOT K+4,I+K-2," " 

3100 PLOT 38-K,I+k-2," " 

3119 NEXT I 

3120 NEXT K 

3130 IF PG=0 THEN 3200 

3140 GOSUB 2400 

3150 G-0 

3169 GOTO 50 

3180 REM ------------- 

3190 REM FIN DU JEU 

3208 PLOT 12,14,CHRS$(12)+"GAME OVER"+CHRS(8) 
3210 GET A$ 

3220 GOSUB 2080 

32306 GOTO 50 
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LE PROGRAMME 


Lignes 30 à 279 : Le jeu 


Après l'initialisation des graphiques et du dessin du jeu 
(sous-programme en 2999), on affiche en haut de l'écran le nom- 
bre de parties gratuites. 


La ligne 19ÿ9 place un point sur la position du joueur et l'in- 
crémente (variable P). 

Si la nouvelle position comporte un espace (ASCII 32), on in- 
crémente le compteur de points G. 

Si G = 228, on va en 3999 pour une nouvelle partie. 


On répète la même séquence pour la voiture de l'ordinateur 
(variable PO). 


Les variables L et LO donnant le numéro de piste (L=5 pour la 
piste extérieure et L=1 pour la piste intérieure), on place 
dans S le sens du déplacement de l'ordinateur (S=-1 pour l'in- 
térieur et S=1 pour l'extérieur). 


Dans le cas où S est différent de zéro et qu'une case blanche 
est adjacente, on va en 99ÿ pour le déplacement de l'ORIC. 


Si la voiture du joueur (PEEK(P)) rencontre celle de l'ordi- 
nateur (V(CO)) en ligne 179, on saute à la fin de partie (ligne 


3099). 


La touche appuyée (stockée dans B$) est gardée en mémoire dans 
la variable A$ jusqu'au prochain carrefour. Les lignes 229 et 
239 dispachent alors sur les parties concernées du programme. 


Lignes 7PD à 760 : déplacement centre 


La touche P étant appuyée, on déplace la voiture du joueur 
vers le centre dans le cas où il existe une case blanche adja- 
cente (ASCII 32). 


Puis l'on incrémente la variable P et l'on décrémente le 
compteur L pour que l'ordinateur sache sur quelle piste on se 
trouve. 


La ligne 759 affiche le nombre de points acquis. 


Lignes 809 à 859 : déplacement extënieur 


La touche Q étant appuyée, on déplace la voiture du joueur 
vers l'extérieur dans le cas où il existe une case blanche ad- 
jacente (ASCII 32). 


Puis l'on incrémente la variable P et le compteur L pour que 
l'ordinateur sache sur quelle piste on se trouve. 


La ligne 849 affiche le nombre de points acquis. 


Lignes 90D à 940 : déplacement de £'ORIC 


La variable S (sens du déplacement de la voiture du joueur) 
étant différente de zéro, on déplace la voiture du joueur vers 
l'extérieur (si S=1) ou vers l'intérieur (si S=-1). 


Puis l'on incrémente la variable PO et le compteur LO pour que 
l'ordinateur sache sur quelle piste il se trouve. 
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Lignes 2DDD à 2320 : graphiques et dessin du jeu 


Après la lecture des caractères graphiques provenant des datas, 
on dessine sur l'écran le circuit 24. 


Lignes 2409 à 2509 : initialisation 


Les variables P et PO donnent la position exacte de la voi- 
ture du joueur et celle de l'ordinateur dans la mémoire de 
l'écran. 


Le tableau T donne le nombre de cases-mémoire de déplacement 
pour les mouvements des voitures et le tableau V les caractè- 
res graphiques qui s'y rapportent. 


Lignes 3PPD à 31609 : fin de partie 

Si la voiture du joueur a rencontré celle de l'ordinateur ou 
si toutes les portions du circuit ont été couvertes, on affiche 
le score total et l'on efface les points pour une nouvelle par- 
tie. 


Lignes 3200 à 3230 : fin du jeu 


Comme il ne reste plus aucune partie gratuite (variable PG), 
on affiche un nouveau jeu dès qu'une touche est enfoncée. 
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IDENTIFICATION des VARIABLES 


DATE NOM DU PROGRAMME : PAGE 
CIRCUIT 24 1/1 


OBSERVATIONS 



















Contient le caractère qui effacera 
A Variable la voiture de l'ORIC au prochain 
| Caractère sur l'écran avant dépla- 
Variable cement de l'ORIC 
Er Caractère correspondant au dépla- 
Variable cement . 
Dernière touche enfoncée 






L variante | x 


Sens du déplacement du joueur 
















Boucle FOR/NEXT 
re de la piste du joueur 









EEE 
Variable ., 
| variate | fx] | 
Variable Û 





L=1 : piste intérieure 
L=5 : piste extérieure 


œe [x [x x = 


I 
K 
L 
0 


L Numéro de la piste de l'ORIC 





Position du joueur 





an 


— — [| D eo [S [s [w 
= F5 © es 


Compteur Parties gratuites 





Variable Position de l'ORIC 





Variable 


Différence entre le joueur et l1'ORI( 








Variable 


nos] Variable 


Valeur du déplacement du joueur 


Valeur du déplacement de 1'ORIC 

Total des points 

T Tableau Direction du déplacement 
EFTUE Tableau des pointeurs des caractè- 

V,(,) Tableau res graphiques 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite (© )Editions du P.S.I 


— 
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CANADAIR 


Qui n'a jamais rêvé d'être seul maître à bord d'un avion ? 
Voilà l'occasion d'exercer vos talents de pilote. 


Un feu de forêt vient d'être annoncé et le canadair peut 
jeter son eau sur toutes les flammes dessinées sur l'écran. 


Au premier tableau, le canadair va et vient d'abord lentement, 
puis sa vitesse est doublée définitivement. 


Le largage de l'eau se fait par la barre d'espace ainsi que 
les changements de tableaux quand toutes les flammes sont 
éteintes, et les remises en jeu. 


Attention : aux tableaux suivants, les flammes montent de plus 
en plus haut et nécessitent une bonne réflexion stratégique 
pendant la descente. 


Quand l'avion heurte une flamme, il s'écrase et repart à 
zéro. 





| tt td * she F À tk | 


| 


Fate nn 0e us 0 + 
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Initialisation 
des caractères 
graphiques 


Niveau N-4 
Increment 1:95 


Afficher les 
flammes. Hauteur 

suivant 
niveau N 



















XerY= 


coordonnées 
du canadair 





: D'emi- Four 
oui 


Incrément 1= 
 d -Incrément 1 E 
non 
oui Demi- tour 
Y=Y+41 
oui Incré ment 

I-1 
non 
non 


non 





niveau +4 


X= X + 
> # 
increment 










flamme oui 


rencontrée 
? 


non 
Afficher 


explosion 
de l'avion 
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DrapeauF:4 
? 


Drapeau 
F=1 


Drapeau F = g 
Points =Points +1 


Afficher 
nombre de 
points 








Effacer 
partiellement 
la Flamme 
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10 REM CANADAIR 

DO REN =-cmanemmseceremsonesneus 

30 TEXT:CLS:PAPER 0 

40 DATA 4,12,28,60,62,62,31,15,15,30,30,60,60,60,30,15,0,8,36, 63,30 


,4,8,0 
59 DATA 0,4,9,63,30,8,4,0,10,20,51,8,45,10,18,12 
039 


60 FOR 1=0 T 

70 READ C:POKE 46856+I,C 
80 NEXT I 

90 F-=0:T=0:N=1 

108 P=.5 

110 I=P 


128 CLS:INK 1 
130 MUSIC 1,0,1,8:PLAY 0,0,0,0 
189 REM ---------------"-"-"""" 
190 REM LE JEU 

200 FOR X=4 TO 36 

218 A=INT(RND(1)*N*4) 

220 PLOT X,20-A, "a" 

230 FOR Y=21-A TO 21 

248 PLOT X,Y,"b" 

258 NEXT Y 

268 NEXT X 

310 X=4 

328 Y-0 

340 IF X>=36 THEN I=-P 

350 IF X<=4 THEN I=P:PLOT X,Y," ":Y=Y+1:PLOT 0,Y,3 
360 IF Y=3 THEN P=1 

370 IF Y=21 THEN 1200 

388 X=X+I 

398 IF SCRN(X,Y)=97 THEN 1800 
400 IF 18 THEN PLOT X-1,Y," c":GOTO 420 
418 PLOT X,Y,"d " 

420 PLAY 1,1,1,180:PLAY 6,0,0,0 
430 IF F=1 THEN 520 

440 IF KEYS="" THEN 340 

450 F=1 

500 L=Y+1 

519 C=X 

520 PLOT C,L, 32 

530 L=L+1 

549 IF L>=22 THEN F-=0:GOTO 340 
550 IF SCRN(C,L)=97 THEN 580 

560 PLOT C,L,"e" 

570 GOTO 340 

580 F=0:T=T+1:PLOT 33,0,STRS(T) 
590 PLAY 1,1,4,180:MUSIC 1,6,1,8 
609 FOR J=L TO L+2 

618 IF J<22 THEN PLOT C,J," " 
620 NEXT J:L=L+2 

630 IF L>=21 THEN 340 

648 PLOT C,L+1,"a" 

650 GOTO 340 

989 REM ---------- 

999 REM PERDU 

1800 IF X>=38 THEN X=37 

1810 FOR I=Y TO 20 

1926 PLOT X-1,1-1,"  " 

1938 PLOT X-1,1,"C\/":PLOT X,1+1,"/\" 
1040 ZAP:WAIT 5:EXPLODE:WAIT 5 
1859 NEXT I 

1960 IF KEYS="" THEN 1060 

1970 GOTO 98 

1200 SHOOT 

1210 IF KEYS="" THEN 1210 

1220 N=N+1:1F N=5 THEN N=4 

1238 GOTO 110 





49 


L'ORIC A L'AFFICHE 


LE PROGRAMME 
Ligne 39 à 139 : initiatisation 

Après la définition des caractères graphiques, on initialise 
les divers compteurs (voir liste des variables). 


Puis l'on donne un ordre MUSIC pour le bruit du moteur de 
l'avion. 


Lignes 200 à 320 : dessin du jeu 


La variable N donnant le niveau du jeu, on affiche à partir 
du bas de l'écran des flammes plus ou moins hautes suivant le 
nombre aléatoire à lui-même fonction de N. 


Les variables X et Y définissent la position du canadair. 


Lignes 340 à 650 : Le jeu 


Si le canadair arrive à droite de l'écran (X>=36), on change 
de direction en modifiant la valeur de l'incrément I (ligne 
349). 


On effectue l'opération inverse s'il arrive à gauche (X<=4 
en ligne 35%) et l'on descend d'une ligne. 


Quand on arrive sur la troisième ligne (Y=3), on change l'in- 
crément de base pour aller plus vite (de ÿ.5 à 1). 


La 21ème ligne étant la dernière, on incrémente le niveau 
du jeu N, et l'on commence une nouvelle partie (ligne 37@). 


Une fois la position du canadair modifiée (ligne 389), on 
teste sur l'écran le caractère qui s'y trouve. Si celui-ci est 
différent d'un espace, on va en ligne 1#9ÿ pour la fin du jeu. 


Suivant la valeur de I (positive ou négative), on affiche un 
canadair vers la gauche ou vers la droite (lignes 49% et 419). 


Le drapeau F indique que l'eau est déjà en train de des- 
cendre. On va alors directement en ligne 52ÿ. 


Dans l'autre cas, on teste pour savoir si l'on doit jeter de 
l'eau ou non. 


Les lignes 599 à 579 affichent sur l'écran l'eau qui descend. 


Dès que celle-ci touche la flamme (testée en ligne 559), on 
en efface une partie (lignes 58% à 65%). 


Lignes 10PD à 1230 : perdu et gagné 


Si le canadair a touché une flamme, on l'affiche de sa posi- 
tion jusqu'au bas de l'écran à grand renfort de ZAP et de 
EXPLODE. 

Mais si c'est gagné, on incrémente le niveau du jeu N avant 
de reprendre une autre partie. 
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NOM DU PROGRAMME : PAGE 
CANADAIR 1/1 


IDENTIFICATION des VARIABLES 


Nombre aléatoire. Hauteur des 
flamme 
C 
D 


l'eau 
rapeau : si F=1—-eau en cours 
de descente 


Incrément pour le déplacement de 
I Variable l'avion 


His mice | 
mis veriae | 


Compteur Nombre de points 

















Variable 


X coordonnées de l'avion 
Y 
































Mel 
É 
FRE 
CR 
Ein 
Étui 
Le 
A 
es 
Lil 
Here 
Fe 
Er 


6/1980 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite )Editions du PSI. 
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RÉFLEXE 


Avez-vous de bons réflexes ? 


Le jeu suivant vous aidera à le savoir. 


11 s'agit de guider un anneau le long d'un fil électrique qui 
dessine des courbes aléatoires plus ou moins compliquées. 


Pour cela, vous disposez des flèches de déplacement vers le 
haut et vers le bas. 


Faites partir l'anneau en tapant sur une des deux flèches et 
rectifiez sans arrêt son glissement alors qu'il a tendance à 
revenir à l'horizontale. 


Une sonnerie intempestive se déclenche quand vous heurtez le 
fil et quand vous gagnez. 


Ce programme est à utiliser de préférence les jours de fête 
pour tester la lucidité de tous les joyeux convives... 





00 nn 
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Dessin du 
gev en HR. 


Initialisation 
des points du 
curseur dans 


XC)etY(} 









Saisir un 
caractere 
av clavier 











S=-4 pour hau 
S-4 pour bas 






Évrseur Fouchè 
lq ligne 














position 
curseur >220 
? 






Effacer le 
dernier 
point du curseur 





Effacer la 
ligne de 

raccord 

électrique 



















Modifier 
X( jetY() 


suivant 5 






Afficher un 
nouveau point 
au curseur 






Incrémenter 
les pointeurs 
Pet D 


Afficher la 
ligne de 
raccord 

électrique 


53 


L'ORIC A L'AFFICHE 
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10 REM REFLEXES À 
D IT DPI MERREEER PA 
30 HIRES 


48 RESTORE: GOSUB 1080 

180 CURSET 0,98,1 

110 DRAW 20,8,1 

120 X=20:Y=90 

130 S=1 

148 X=X+25 

150 IF RND(1)>0.5 THEN S=5#-1 

169 IY=RND(1)*25%S 

178 IF Y+IY>110 OR Y+IY<18 THEN 150 

180 DRAW 25,1IY,1 

190 Y=Y+IY 

200 IF X>149 THEN 308 

218 GOTO 140 

300 DRAW 50,90-Y,1 

310 DRAW 17,0,1 

328 CURMOV @,-5,1:DRAW @,11,1 

ABB RÈM = nme 

390 REM INIT. CURSEUR 

400 X=5:Y=85:P=5:D=1 

410 FOR I=1 T 

4206 X(1)=X:Y 

430 CURSET X 

448 CURSET X 

450 X=X+1 

460 NEXT I 

470 GET AS:1F A$="" THEN 470 

499 REM ----------> 

490 REM DEPLACEMENT 

500 AS=KEYS 

510 S=1#(AS$=CHRS(1 

520 IF PONT UP N +1 

530 IF POINT(X(P) 

549 CURSET X(D 

559 CURSET x(D 

560 X(D)=X(P)+ 

570 CURSET X(D 

580 P=P+1:IF P 
D 
D 


(AS=CHRS(18)) 

)=-] THEN 700 

+9)=-1 THEN 708 
CURSET X(D), Y(D)+10, 0) 
Ab @,Y(D)-120, 


RSET X(D),Y(D)+10,1 


590 D=D+1:1IF 
608 CURSET X( 
619 GUTO 500 
6BQ RÈM -------" 

690 REM SONNETTE 

706 IF X(P)>220 THEN 760 

716 FOR I=1 TO 15 

720 PING:WAIT 15 

730 NEXT I 

740 GET AS:1F A$="" THEN 730 

758 GOTO 34 

760 FOR I=1 TO 15 

77@ SHOOT:WAIT 15 

780 NEXT I 

790 GET A$:1F A$="" THEN 798 

808 GOTO 30 

OAGUREM = semaine 

999 REM DESSIN DU JEU 

1998 FOR I=1 TO 7 

1818 READ N,X,Y l 

1820 CURSET X,Y,1 ï 


DH HN SCD * 


: 
), 
1: 
); 
nt 


W @,Y(D)-120,1 


1030 FOR J=1 10 N 
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READ X,Y:DRAW X,Y,1 
NEXT J,I 

CURSET 102,182,1:CIRCLE 15,1 

FOR 1=91 TO 115 STEP 2 

CURSET 1,145,1:DRAW 0,20,1 

NEXT I 

CURSET 125,145,1:DRAW -5,40,1 

CURMOV -2,0,8:CIRCLE 3,1 

CURSET 40.180,06: CHAR 50,0,1:CURSET 48,180,0: CHAR 50,0,1 
CURSET 56. 180,0:CHAR 48,0, 1: CURSET 64,180,0:CHAR 118,0,1 
RETURN 

RE soso nstesssss— 

RE GRAPHIQUES 

DATA 13,6,90,0,50,50,0,0,5,3,0,0,-5,40,0 

DATA 0,5,20,0,0,-5,120,0,0,-10,-228,0,0,-35 

DATA 8.48,145,0,5,-4,0,0,10,16,0,0,-10,-4,0,0,-5,-8,0 
DATA 3,45,160,0,10,4,0,0,-10 

DATA 3,55,160,0,10,4 

DATA 4:88, 145,0,20,30,0,0,-20,-30,0 


Lo 
s 
1 
ren 
æs 


DATA 3,86,153,-3,0,0,5 
DATA 3,119,153,3,0,0,5 





| sl 
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LE PROGRAMME 
Lignes 30 à 329 : initialisation 


Après le passage en haute résolution (commande HIRES), on 
dessine sur l'écran le jeu à l'aide des datas en fin de pro- 
gramme (sous-programme en 19ÿ@). 


Comme on utilise plusieurs fois ce sous-programme, on effec- 
tue d'abord une commande RESTORE. 


NS 


Les lignes 199 à 329 dessinent la ligne brisée en utilisant 
des nombres aléatoires pour corser le jeu. 


Lignes 4P0 à 470 : initialisation du curseur 


Chaque point du curseur est placé dans les tableaux X et Y 
pour en connaître à tout moment sa position. La variable P 
pointe le premier de ces points et D le dernier. 


Lignes 599 à 610 : déplacement 


La touche appuyée étant placée dans A$, on détermine par une 
fonction logique la valeur de S (ligne 51%). 


Les lignes 529 et 539 testent l'écran à côté du curseur pour 
savoir si la ligne brisée est touchée. 


Après l'effacement du dernier point du curseur (à X(D),Y(D)) 
et de la ligne de raccord électrique, on définit le dernier 
point comme étant maintenant le premier, et on modifie en 
conséquence les tableaux X() et Y(). 


Il ne reste plus qu'à afficher le nouveau point, à incrémen- 
ter les pointeurs P et D et à afficher la ligne de raccord 
électrique. 


Lignes 70 à 800 : sonnette 


Si l'on a gagné ( X(P) = 229 ), on envoie quinze SHOOT, sinon 
on envoie quinze PING pour la sonnette. 


Lignes 19P9P à 1270 : dessin du feu 


Les traits qui composent le dessin sont effectués en plusieurs 
temps. 


Le premier DATA (variable N) donne le nombre de traits à 
tracer, les deux suivants le point de départ pour CURSET (va- 
riable X et Y), et les N fois 2 datas qui suivent les coordon- 
nées des instructions DRAW. 


L'ORIC A L'AFFICHE 


NOM DU PROGRAMME : PAGE 
REFLEXES 12221 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 





Pointeur du dernier point fa curseu 


dans les tableaux X() et Y 





Indice 


| Pointeur du premier point du curseu 
dans les tableaux x() et Y() 

Sens du déplacement : S=-1 pour 
haut, S=1 pour bas 











LE La des points de tracé 





Coordonnées des points du curseur 





























(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite ( )Editions du P.S.I. 
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CHAPITRE 2 


JEUX DE RÉFLEXION 


L'ORIC A L'AFFICHE 


CHIEN DE BERGER 


Ce jeu a pour inspiration les fameuses compétitions de chiens 
de berger en Ecosse. 


Le gagnant est celui qui ramène le plus vite possible tout 
un troupeau de moutons dans son enclos. 


Ici, le chien de berger peut diriger de cinq à dix moutons, 
selon les parties. Vous devez le déplacer avec les quatre flè- 
ches et valider le mouvement en tapant sur RETURN. 


A ce moment, tous les moutons bougent et seuls ceux qui sont 
vraiment près de l'enclos y pénètrent définitivement. Les au- 
tres s'éparpillent de plus en plus dans le pâturage et le pau- 
vre chien n'a plus qu'à les rabattre à nouveau vers l'enclos. 


Bien sûr, il s'agit d'utiliser le moins de coups possible. 
Le nombre d'essais s'affiche d'ailleurs dès que tous les mou- 
tons sont dans l'enclos. 


ÉRRRR n  e 
ee 
| ++ 
Î Î 
+ + + 

vw 

+ + 
| b | 
[ 

+ ri + 
É È | 
+ + 

| | Li | 

| “A 

| * + 

TS CS CS es 

| 


SR NS Re ne NS Re | 
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Initialisation 


des caractères 
graphiques 


Dessiner 
le jeu 
N=Nombre de 
moutons 


Coordonnées 
chien dans Xe+Y 


moutons dans 


X()etY() 





Afficher 
berger, chien 
ef moutons 









Entrer 
déplace ment 





DS = Return 
? 


non 


Effacer 
le chien 






Modifier 
X eh Y soivant 
valeur de D$ 


Afficher 
le chien 





oui 


Essais = 
essais +1 


Déplacer tous 
les moutons 
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Afficher 
le nombre 
d'essais 
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D——"# 


10 
20 
30 
4 0 
50 


60 
70 
80 
90 
100 
180 
190 
200 
210 
, 23 
220 
230 
240 
250 
280 
290 
300 
310 
320 
330 
340 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 
760 
770 
788 


REM CHIEN DE BERGER 

REM -----------"-"-" 

PAPER @:INK 2:CLS 

F=0:E-0 

DATA 0,0,2,3,62,30,18,9,0,0,3,35,30,30,18,18,0,12,30,63,63,30,12 


DATA 28,62,28,28,8,30,31,29,29,29,29,21,21,21,21,31 
FOR I=0 TO 39 


READ A:POKE 46856+I, A 
NEXT I 

DIM X(11),Y(11) 

REM ----------"-- 


REM DESSIN DU JEU 
FOR I=3 TO 37 


IFI/5=INT(I1/5)THENPLOTI,0,"c":PLOTI,23,"C"ELSEPLOTI,0,"-":PLOTI 
IF I1>24 THEN 258 

IF 1/4=INT(1/4) THEN PLOT3,I-2,"c":PLOT37,1-2,"c":GOTO 250 

PLOT. :3,T-2;: "Es PLOT. 37/1227, I" 

NEXT I 

REM ====s-=sssssscsrss 


REM AFFICHE BERGER, CHIEN, MOUTONS 
X=INT(RND(1)#13)+4 

Y=INT(RND(1)#20)+2 

PLOT X,Y,"d":PLOT X,Y+1,"e" 

V=INT(RND(1)#10)+18 

W=INT(RND(1)#15)+1 

PLOT V,W,"c----c" 

FOR I=W+1 TO W+4:PLOT V+5,I,"I":NEXT I 

PLOT V,W+5,"c----c" 

W=W+1 

N=5+INT(RND(1)#6) 

FOR I=1 TO N+i 

X(I)=INT(RND(1)*14)+4 

Y(I)=INT(RND(1)#22)+1 

IF SCRN(X(I),Y(1))<>32 THEN 420 

IF I<=N THEN PLOT X(I1),Y(I),"b":GOTO 470 
X=X(I):Y=Y(I):PLOT X(I),Y(I),"a" 

NEXT I 

REM ------------------ 

REM DEPLACE CHIEN, MOUTONS 

D$=KEYS:IF D$="" THEN 608 

IF D$=CHR$S(13) THEN E=E+1:GOTO 700 

PLOT X,Y," " 

IF DS=CHRS(8) THEN IF SCRN(X-1,Y)=32 THEN X=X-1 
IF DS$=CHRS(9) THEN IF SCRN(X+1,Y)=32 THEN X=X+1 
IF D$=CHRS$S(11) THEN IF SCRN(X,Y-1)=32 THEN Y=Y-1 
IF D$=CHR$(10) THEN IF SCRN(X,Y+1)=32 THEN Y=Y+1 
PLOT X,Y,"a" 

GOTO 600 

FOR J=1 TO 5 

F=0 

FOR I=1 TO N 

PLOT X(I}),Y(1)," " 

IF X(I)<V OR X(I)>V+4 THEN 800 

IF Y(I)<W OR Y(I)>W+3 THEN 800 

F=F+1 

IF SCRN(X(I)+1,Y(1))<>32 THEN 910 

X(I1)=X(I)+1 


SE 
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798 GOTO 918 
808 AX=X(I):AY=Y(I) 


810 IF Y<Y(I) THEN Y(I)=Y(I)+1 

820 IF Y>Y(I) THEN Y(I)=Y(1)-1 

830 IF Y(I)=AY AND Y(I)=1 THEN Y(I)=Y(I)+1 
848 IF Y(I)=AY AND Y(I)=22 THEN Y(I)=Y(1)-1 
850 IF X(I)=AX AND X(I)=4 THEN X(I)=X(1)+1:G010 890 
868 IF X(I)=AX AND X(1)=36 THEN X(I)=X(1)-1:GO10 898 
878 IF X<X(I) THEN X(I)=X(I)+1 

888 IF X>X(I) THEN X(I)=X(I)-1 

890 IF SCRN(X(I),Y(1))=32 THEN 910 

908 X(I)=AX:Y(I)=AY 

918 PLOT X(I),Y(I),"b" 

928 NEXT I 

938 IF F=N THEN 1000 

948 NEXT J 

950 PING 

969 GOTO 600 

980 REM --------------""" 

990 REM FIN 

1800 PLOT 14,22,"NB D'ESSAIS:"+STRS(E) 

1818 SHOOT 

1020 IF KEYS="" THEN 1020 

1830 RUN 
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LE PROGRAMME 
Lignes 30 à 109 : initialisation 


Après la définition des caractères graphiques des datas des 
lignes 59 et 69, on dimensionne deux tableaux X et Y pour con- 
naître à tout moment la position des moutons. 


Le compteur F donne le nombre de moutons déjà dans la berge- 
rie, tandis que E compte le nombre d'essais à chaque partie. 


Lignes 200 à 259 : dessin du jeu 


Cette partie du programme affiche à l'écran la clôture du 
pâturage avec les caractères graphiques définis dans l'ini- 
tialisation. 


Lignes 300 à 479 : affiche berger, chien et moutons 


Ces trois éléments sont affichés sur l'écran à des positions 
aléatoires. Les coordonnées du chien sont sauvegardées dans 
les variables X et Y et celles des moutons dans les tableaux X() 
et Y(). C'est la variable N qui détermine le nombre de moutons 
(entre 5 et 19). 


La bergerie est aussi déplacée à chaque partie. Ses coordon- 
nées sont conservées dans les variables V et W. 


Lignes 600 à 689 : déplacement du chien 


La touche appuyée étant stockée dans la variable D$, on modi- 
fie en conséquence les variables X et Y si aucun élément sur 
l'écran ne s'y oppose (testé par SCRN). 


Si cette touche correspond au "RETURN" du clavier (code 13), 
on va en 7ÿ9ÿ pour le déplacement des moutons. 


Lignes 700 à 960 : déplacement des moutons 
Chaque mouton est déplacé à tour de rôle, cinq fois de suite, 
dans la direction qui l'éloigne le plus du chien. 


S'il se trouve dans la bergerie (coordonnées V et W on in- 
crémente le compteur F. Le mouton ne peut alors plus en sortir. 


Si le compteur F est égal à N, on va directement à la ligne 
1999 pour la fin du jeu. 


Dans le cas contraire, on revient en ligne 69% pour un nouvel 
essai. 
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NOM DU PROGRAMME : PAGE 
CHIEN DE BERGER 1/1 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 


à Anciennes coordonnées d'un mouton 
avant déplacement 
Variable 
|__| nermière touche anpuyée 
Nombre d'essais 
Nombre de moutons dans la bergerie 


Indice Boucle FOR/NEXT 
Indice Boucle FOR/NEXT 














Nombre de moutons 





 oordomnées de la bergerie 








fesordonnées du chien 





Coordonnées des moutons 



































(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite (© )Editions du PSI. 
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MISSIONNAIRES 
ET CANNIBALES 


Ne vous fiez pas à la mine angélique des six personnages qui 
vont apparaître sur votre écran. En effet, les trois cannibales 
guettent le premier moment d'inattention des trois missionnai- 
res pour les précipiter dans leurs marmites bouillantes. 


Pourrez-vous les faire tous passer sur l'autre rive en sa- 
chant que les missionnaires ne doivent jamais être en minorité 
sur l'une des deux berges ? 


Vous avez à votre disposition une barque qui ne peut pren- 
dre plus de deux passagers par traversée. À chaque voyage, 
l'ordinateur vous demande le nombre de cannibales ou de mis- 
sionnaires à installer dans la barque (tapez 1 pour cannibale, 
2 pour missionnaire et ÿ s'il n'y a pas de deuxième passager). 
Puis la barque déposera ses voyageurs sur l'autre rive et devra 
en ramener au moins un sur la première. 


Attention : dès que les cannibales deviennent plus nombreux que 
les missionnaires sur l'une des rives, ils entraînent automati- 
quement leurs prisonniers dans leurs marmites. Dans ce cas, 
tapez sur n'importe quelle touche et vos personnages ressusci- 
teront pour un nouvel essai. 


A vous de trouver la meilleure tactique. 
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Initialisation 
des caractères 
graphiques 


Initialisation 
des tableaux 
C,PBet M 


Afficher 
la barque 
Afficher 
le jeu 


oui 











non 


Afficher Afficher 
Ÿ Perdu ” Gagne” 








Fin 





out 


oui 


Déplacer 

la barque 
Afficher 
le jeu 


Déplacer les 


C 2 les M dans 
le tableau M( ) 
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10 
28 
30 
40 
50 
60 
70 


100 
110 
120 
130 
140 
280 
290 
300 
310 
2" 
320 
330 
340 
350 
390 
400 
410 
420 
430 
440 
441 
445 
450 
460 
470 
480 
498 
500 
510 
520 
530 
540 
) 
550 
580 
590 
600 
610 
620 
680 
690 
700 
710 
720 
880 
890 
900 
910 
920 
930 
940 
950 
960 


970 
# 
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REM MISSIONNAIRES 
REMi sense sens 
GOSUB 1000 
C(1)=94:C(2)=106:C(3)=94:C(4)=106 
P(1)=-1:P(2)=5 
P(3)=25:P(4)=31 
B=1:B(1)=14:B(2)=20 
M(1)=3:M(2)=3:M(3)=0:M(4)=0 
INK O:PAPER 1:CLS 
PLOT L. Lb-lée-ceesorense 
PLOT. 26: 16, == “ 
PLOT 6,17,"{I":PLOT 6,18,")"+CHRS(126) 
PLOT 32,17,"€I":PLOT 32,18,")"+CHRS(126) 
REM np enacees 
REM LE JEU 
PLOT B(B),14," “ 
IF B=1 THEN PLOT B(B)-1,15, “y “ ELSE PLOT B(B),15," 


PLOT B(B),16,"vwwwwx" 

GOSUB 908 

IF M(3)+M(4)=6 THEN 600 

IF ELPAte) AND M(2)<>0) OR (M(3)>M(4) AND M(4)<>0) THEN 700 
FOR I=1 TO 

PLOT 5,22,  PASSAGER"4STRS(T)+CHRS(O)+ "CAN. =1/MIS.=2 ?" 

GET P:IF P<e OR P>2 THEN 410 

IF I=1 AND P-=0 THEN 410 

IF P=0 THEN 478 

IF B=1 THEN 441 ELSE 445 

IF M(P)>0 THEN M(P)=M(P)-1:GOTO 458 ELSE 410 

IF M(B+P)>0 THEN M(B+P)=M(B+P)-1 ELSE 410 

PLOT B(B)-1+2#1,14,CHR$(C(P))+CHR$S(C(P)+1) 

PLOT B(B)-1+2#1,15,CHR$S(C(P)+2)+CHR$S(C(P)+3) 

NEXT I 

PLOT.-3522;" “ 

GOSUB 900 
PLOT B(B),14 
PLOT B(B)-1 
PLOT B(B),1 
B=B+1:1IF B- 
IF B=2 THEN 


545: 

6," “ 

3 THEN B=1 
M(3)=3-M(1):M(4)=3-M(2) ELSE M(1)=3-M(3):M(2)=3-M(4 


GOTO 300 

REM ------------" 

REM GAGNE 

PLOT 4,22,CHR$(12)+"VOUS AVEZ ECHAPPE A LA MARMITTE" 
GET A$ 

GOTO 78 

REM -----------"-- 

REM PERDU 

PLOT 4,22,CHR$(12)+"VOUS AVEZ FINI DANS LA MARMITTE" 
GET A$ 

GOTO 70 

REM ---------------- 

REM AFFICHE LE JEU 

FOR I=1 TO 4 

FOR J=1 TO 3 

G=C(I) 

FOR K=18 TO 15 

IF J<=M(I) THEN PLOT P(I)+02,k, CHRS(G)+CHRS(G+1):GOTO 960 
PLOT P(I)+J#2,K," * 

G=G+2: NEXT K 

NEXT J:NEXT I 
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988 RETURN 

985 REM ---------------- 

998 REM GRAPHIQUES 

1880 DATA 1,3,7, 51, 31,51,7,14,32,48,56,51,62,51,56,28 
1919 DATA 24,16, 9, 19,8.6,6,2,26, 34,10, 50,4, 24 
1820 DATA 1,1,1,2, ,8,32,32,32,16,24,8,4,4 

1830 DATA 18,18,22, 519 18118118 20 25 1, 18,8, 8 
1046 DATA 7,7,7,7,7 5,56, 56, 56,56, 56,40, 40, 40 
1858 DATA 5,5,5,5,5 ,62,40,40,40,40, 40,40, 30,31 
1868 DATA 3 ,4 ,32,44,48,12,2, Ne 63,43,1,13 
1070 DATA 3 6, 9,36, 18,33, 33,9,17,34,5,9,18 
1888 DATA 9 19, 2,32,36, 40, Ph 50,1,1,1,1 
1890 DATA 3 2,4 ,39,33,25,21,21,21,21,21,57,33 
1106 DATA 3 3,8 8,33,33,63,4,4,4,4.4 

1116 DATA 8 ,2,2 0:4,4,60,16,16,16, 30, 30 
1126 DATA 6 32,1 ,1,63,0,0,0,0, 

1136 DATA 6 ,2,4 2,16,16,56,20,20,18,18,17 
1148 DATA 2 19,1 ,18, 34 

1150 DATA 2 15,56,40,24,12,16,8,16,60,7,5,6,12 
1166 DATA 1 ,18,47,21,10,21,52,4,4,44:61,42,20,42 
1206 FOR I= 263 

1216 READ A 4 

1226 NEXT I 

1230 RETURN 
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LE PROGRAMME 
Lignes 30 à 149 : initialisation 


Après la définition des caractères graphiques (sous-programme 
en 1999), on définit les tableaux C, P, Bet M pour connaître, 
à tout moment, la composition du jeu sur chaque berge (M), 
leurs positions sur l'écran (P), les caractères graphiques qui 


les composent (C) et la position sur l'écran de la barque (B). 


Lignes 309 à 559 : Le jeu 


La variable B donnant le numéro de berge (B=1 gauche, B=2 
droite), on affiche la barque à B(B). 


Puis les personnages sont affichés par le sous-programme en 
999, en fonction de M() et à la position P(). 


Dès la ligne 349, on vérifie s'ils sont tous sur la berge de 
droite. Si c'est le cas, on va en ligne 69ÿ pour un message de 
félicitations. 


La ligne 359 teste si le nombre de cannibales n'est pas supé- 
rieur à celui des missionnaires. C'est en ligne 79ÿ que l'on 
va dans ce cas. 


Puis c'est la saisie des passagers.effectuée par une boucle 
FOR/NEXT. On vérifie, bien évidemment, qu'il y ait au moins un 
passager (ligne 42) et qu'il existe bien sur la berge les 
voyageurs que l'on veut embarquer (lignes 441 et 445). 


Ces vérifications étant faites, on affiche leurs têtes sur la 
barque (lignes 459 et 46%). 


Pour finir cette partie du programme, on affiche à nouveau 
les personnages (sous-programme en 9ÿÿ), on efface la barque 
et on réajuste le tableau M, suivant le numéro de la berge. 


Lignes 900 à 989 : aggiche Le jeu 
En fonction des tableaux M, P, et C, on affiche à l'écran 


les six personnages sur les deux berges. La variable G pointe 
le premier des caractères graphiques. 
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DATE NOM DU PROGRAMME : PAGE 
MISSIONNAIRES ET CANNIBALES / 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 
Co) 


[HI Numéro de berge : B=1, berge gauche 
Aiquillage X B=2, berge droite 
lan Position de chaque berge sur 
Tableau l'écran 

Caractères graphiques correspondant 
(1) Tableau au tableau M 
Pointeur des caractères graphiques 
Boucle FOR/NEXT 
Boucle FOR/HEXT 


Position des missionnaires et des 
Tableau cannibales chaque 


= 
EM 
Es 
ea 
= Choi 
EN 
1e 
Es 
En 


œo 
— 


o 














Variable 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du PSI. 












































FE 
FFM 
Bon 
EE 
El 
Es 
el 
Fe 
ER 

1 

1 
se 
EN 
REA 
Eu 
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PARITÉS 


Dès que vous aurez rentré le nombre de joueurs (jusqu'à 5) 
et leurs prénoms, dix-huit paires de figures diverses (carte, 
téléphone, pièce de monnaie...) se dessinent faces cachées sur 
votre écran. 


Elles se présentent sur six lignes de six colonnes, le but 
du jeu étant de retrouver les dix-huit paires mélangées. 


Pour cela, il faut retourner, chacun à son tour, deux cartes 
de façon à situer les positions des paires pour les reconstituer. 


L'ORIC demande les coordonnées des cartes sous forme du numéro 
de ligne, puis du numéro de colonne. 


11 refuse les cartes déjà mises en paire et celles dont les 
coordonnées sont erronées. 


Dans le cas où l'un des joueurs trouve une paire, les cartes 
sont effacées de l'écran. 


Chaque paire trouvée fait obtenir un point et le gagnant peut 
rejouer. 


Quand toute la grille est vide, les résultats de tous les 
joueurs s'affichent. 


Ce jeu, apparemment simple, demande cependant une grande 
patience et une grande attention. 


7) OO00E 


}_CUC 


nn 


LI CI 


40000 


HI 
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Lecture des 


caractères 
graphiques 
dans les datas 












Entrer nombre 
et homs des 
Joueurs 


Melanger 


les cartes 


Dessin 
du jeu 


Numero joveur= 
LA 
numéro +1 


Numéro 
joueur = 1 





Entrer les 
deux cartes 


Afficher les 
deux cartes 


Boucle 
d'attente 
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Carte 
identique 
© 


oui 


hon 


Retourner 
les cartes 


oui 
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Ajouter {point 
au joueur 


Effacer les 
deux cartes 
17 
de l'ecran 















Retirer les 
deux cartes 
du jeu 


Total des points = 
total +1 


Total <18 


QE 


non 


Afficher les 


résultats 


Fin 


240 
250 
268 
298 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
580 
598 
600 
610 
620 
630 


640 
R$( 
650 
RS( 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 


+ 
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Feu PARITES 


GOSUB 2000 
INK 5:PAPER 0:CLS 
INPUT"NB DE JOUEURS ";JN 
IF JN<2 OR JN>5 THEN PRINT'ENTRE 2 ET 5 11": GOTO 58 
FOR 1=1 TO JN 
PRINT:PRINT"NOM DU JOUEUR ";1;:INPUT N$(I) 
NS(I)=LEFTS(NS(I)+" “,15) 

NEXT I 

RENSesmesesRees eus 

REM INITIALISATION 

K=40 

FOR I=1 TO 3 

FOR J=1 TO 6 

C(I,J)=K:C(I+3,J)=K 

K=K+4 

NEXT J 

NEXT I 

CLS:PLOT 106,10, "MELANGE DES CARTES: " 

FOR I=1 TO 120 

LI=INT(RND(1)*6)+1 

L2=INT(RND(1)#6)+1 

C1=INT(RND(1)*6)+1 

C2=INT(RND(1)#6)+1 
A=C(L1,C1):C(L1,C1)=C(L2,C2):C(L2,C2)=A 
PLOT 30,18, STR$(120-I)+" " 

NEXT I 

REN 25-57 

REM AFFICHE LES CARTES 

CLS 

FOR I=1 TO 24:PLOT 8,1,9:PLOT 33,1,8:NEXT I 
FOR 1=1 TO 6:PLOT 6+1#4,0,STRS(I):NEXT I 
FOR J=0 TO 5 

PLOT 5, Jr4+2 ,STR$(J+1)+CHR$S(5) 

FOR 1=0 TO 

FOR K=1 TO 3 

PLOT 9+1#4,Jw4+K, AS(K) 

NEXT K,I,J 

RÉM' == rerceueaantee 

REM LE JEU 

NJ=NJ+1:1F NJ>JN THEN NJ=1 

PLOT 7,25,CHR$(4)+NS(NJ)+"  ("4+STRS(P(NJ))+CHRS(4)+" PTS) 
FOR 1=1 TO 2 

PLOT 4,26,CHR$(1)+"CARTE"+STRS(I)+CHRS(1)+":LIGNE( ), COLONNE( 


GETAS:Y(I)=VAL(AS):1F Y(I)<1ORY(I)>6 THEN 648 ELSE PLOT20,26,ST 
Y(1)) 

GETAS:X(I)=VAL(AS):IF X(I)<1ORX(I)>6 THEN 630 ELSE PLOT33,26,ST 
X(1)) 


IF SCRN(5+X(I)*4,Y(I)#4)=5 THEN 630 
IF I=2 AND X(1)=X(2) AND Y(1)=Y(2) THEN 630 
C=C(X(I),Y(I)) 

PLOT 10+(X(1)-1)#*4,2+(Y(1)-1)#4, CHRS(C)+CHRS(C+2) 
PLOT 18+(X(1)-1)#4,3+(Y(I1)-1)#4, CHRS(C+1)+CHRS(C+3) 
NEXT I 

WAIT 300 

IF COX VOL) C(X(2),Y(2)) THEN 800 

FOR I=1 TO 2 

PLOT 18+(X(1)-1)#4,2+(Y(1)-1)#4, CHR$S(5)+CHRS(5) 
PLOT 18+(X(1)-1)#4,3+(Y(1)-1)#4; CHR$S(5)+CHRS(5) 
NEXT I 

GOTO 600 
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808 P(NJ)=P(NJ)+1 + 
810 FOR I=1 TO 2:FOR J=1 TO 4 

828 PLOT 9+(X(1)-1)#4,J+(Y(I)-1)#4,CHRS(5)+CHRS(5)+CHRS(5)+CHRS(5) 
830 NEXT J,I 

848 TP=TP+1 

858 IF TP<18 THEN 618 

880 REM ------------------- 

898 REM RESULTATS 

988 CLS 

918 PRINT TAB(25); "RESULTATS": PRINT: PRINT: PRINT: PRINT 
929 PRINT"NOM"; TAB(35); "POINTS": PRINT: PRINT 

930 FOR I=1 TO JN 

948 PRINT N$(1);TAB(25);P(I):PRINT 

958 P(I)=0 

968 NEXT I 

978 INPUT A$ 

980 TP=0:GOTO 208 

1988 REM ------------------ 

1998 REM GRAPHIQUES 

2008 DATA 8,3,4,8,16,16,16,16,16,16,16,16,8,4,3,0 
2018 DATA 6,48,8,4,2,2,2,2,2,2,2,2,4,8,48,0 


2028 DATA 6,63,0,0,0,0,0,8,0,0,0,0,0,0,63,0 

2038 DATA 16,16,16,16,16,16,16,16,2,2,2,2,2,2,2,2 

2648 DATA 3,2,3,0,7,15,27,51,63,7,7,3,3,3,3,7 

2058 DATA 56,40,56,32,60,62,59,59,59,56,24,24,24,24,24,28 
2868 DATA 6,1,15,8,8,63, 32,39, 39, 32,32, 39,36, 36, 32,63 
2878 DATA 8,32,48,16,17,61,5,37,37,5,5,39,36, 36,4, 60 
2888 DATA 6.3,5,8,16.16,32,49,33,17,16,8,5,3,0,0 

2098 DATA 6,32,16,8,12,20,34,6,2,4,4,8,16,32,0,0 

2188 DATA 0,3,4,8,18,22,42,34,34,34,18,18,8,4,3,0 

2118 DATA 0,48,8,4,2,58, 33,49, 33,33,2,2,4,8,48,0 

2126 DATA 0.15.48,39,58,7,8,19,26,20,19,16,31,12,0,0 
2138 DATA 6,66,3,57,23,56,4,50,10,10,50,2,62,12,0,0 

2140 DATA 63,32, 42,46, 36, 32,34, 35, 33, 32, 42,46, 36, 32,63,0 
2150 DATA 62.2,42,58,18,2,34,34,2,2,42,58,18,2,62,0 

2168 DATA 63,17,17,63,4,4,63,17,17,63,4,4,63,17,17,63 
2178 DATA 63.4,4,63,17,17,63,4,4,63,17,17,63,4,4,63 

21806 DATA 63,32, 36, 32, 32,36, 32,63, 32, 32,32,32,36,32,63,0 
2190 DATA 63,1,9,1,1,9,1,63,1,9,1,1,1,1,63,0 

2288 DATA 1,3,5,9,19,33,37,33,41,34,37,42,48,63,0,0 

2218 DATA 63,1,21,1,21,1,21,1,63,2,20,40,16,32,6,0 

2220 DATA 17,32, 36,24,45,5,47,17,41,5,5,1,1,1,1,3 

2230 DATA 8,46,17,34,13,41,62,52,50,41,36,42,32,32,32,48 
2240 DATA @,0,1,2,12,30,63,63,30,12,0,0,1,1,0,0 

2250 DATA 15,49,2,4,4,8,8,16,16,16,24,60,62,62,60,24 
2268 DATA 1,1,3,2,3:2,3,2:7,2,7,15,5,11,20,56 

2270 DATA 6.032,32. 32,32, 32, 32,48, 32,48,56,16,40,20,14 
2280 DATA 0.8.0,1,3,7,63,31,15,31,63,7,3,1,0,0 

2290 DATA 0.8.6.0.32,48,62,60,56,60,62,48,32,0,0,0 

2308 DATA @.8,0.0:1,11,63,31,15,15,15,31,63,15,0,0 

2310 DATA 0.0.0.32,48,60,63,62,62,60,62,63,60,48,0,0 
2320 DATA 6.0.8.0,6,8.3,7,31,63,63,63,31,15,0,0 

2330 DATA @.0.3,4:10,51,51, 33, 32, 32,48,48,32,0,0,0 

2348 DATA 1,3,7,15,63,16,20,22,16, 17, 17,20,18,9,4,3 

2350 DATA 0.32,48,56,62,4,22,54,6,6,6,22,38,13,23,37 
2380 DATA @.0,6,12,30,63,63,63,63,31, 01. 7,3,1,0,0 

2390 DATA 8.0.0.24.66.62.62,62,62,60,56.48,32,0,0,0 

24006 DATA @.0,8.1,3,7,3,9,29,63,29,9,3,7,0,0 

2418 DATA 0,0,0,0,32,48,32,8,28,62,28,8,32,48,0,0 

2998 CLS:PAPER 6:INK 1:PLOT 16,18, "LECTURE DES DATASs: 


3808 FOR 1-0 TO 639:READ A:POKË 47368+I,A:PLOT 30,10, STRS(639- I)+" 
“: NEXT 

3018 A$(1)=CHRS(32)+CHRS(36)+CHRS(36)+CHRS(34) 

30208 AS(2)=CHRS(38)+CHRS(S)+CHRS(5)+CHRS(39) 

3030 AS$(3)=A$(2) 

3048 A$(4)=CHRS(33)+CHRS(37)+CHRS(37)+CHRS(35) 


+ — RETURN GS? 
| 
| 
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LE PROGRAMME 
Lignes 39 à 379 : initialisation 


On place dans la totalité du deuxième jeu de caractères les 
représentations graphiques des cartes du jeu et, dans le ta- 
bleau A$, le dessin des cartes (sous-programme en 299@). 


Puis l'on saisit au clavier le nombre et le nom des joueurs. 


Le numéro des caractères graphiques de chaque carte étant 
placé dans le tableau C(,), on mélange ce dernier en utilisant 
les quatre nombres aléatoires Cl, C2, Ll et L2. 


Lignes 409 à 480 : affichage du feu 


Comme tous les caractères graphiques sont placés dans le 
deuxième jeu, on place sur toute la colonne 8 des attributs 9 
et sur la colonne 33 des attributs 8. 


Lignes 600 à 780 : Le jeu 


Après la saisie dans la variable A$, les numéros de lignes 
et de colonnes sont placés respectivement dans les tableaux 
Y() et x(). 


Dans le cas où ces deux cartes sont identiques, on saute 
directement à la ligne 899. Sinon, on les retourne après une 
petite boucle d'attente. 


Lignes 899 à 850 : cas des cartes identiques 


On incrémente le total des points du joueur (tableau P), puis 
l'on efface de l'écran les cartes désignées. 


Si le total des cartes effacées est inférieur à 18, on conti- 
nue normalement le jeu mais en gardant le même joueur (ligne 
619 au lieu de 694). 


Lignes 909 à 989 : nésultats 


On affiche le nom et le nombre de points de chaque joueur 
(tableaux NS et P). 


T4 
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DATE NOM DU PROGRAMME : PAGE 
PARITES 1/1 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 
(y 


Fee Utilisée pour le mélange des cartes 
dE 1 Caractère saisi au clavier 
$:(1) a Dessin des cartes 
Nr es Pointeur des caractères graphiques 
Variable pour l'affichage des cartes : 
nr 
de aléatoires pour le mélange 





> [> 
LS 





> 





des cartes 
Variable 





Indice Boucle FOR/NEXT 





Boucle FOR/NEXT 





Compteur Nombre de joueurs 
| Pointeur des caractères graphiques 
Variable des cartes 




















Variable Nombres aléatoires pour le mélange 
des cartes 
Variable 





Tableau Noms des joueurs 





Zz = F—- Pas QC Le 4 I o og og 
[en A DS) Ee Z D Î[— 


Compteur X Numéro du joueur 





TD 


Tableau Total des points de chaque joueur 








Total des points 





< 


U), | tableau | 


—< 





(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du P.S.I. 


78 


L'ORIC A L'AFFICHE 


CHAMP DE CAROTTES 


C'est un jour d'hiver bien froid et Maître Lapin ne voit plus 
qu'une carotte dans le fond du champ. Il va essayer d'aller la 
déterrer, tout en sachant que les villageois ont tendu plein de 
pièges sous l'herbe. 


Heureusement qu'il porte sur lui son fidèle détecteur élec- 
tronique... 


Le détecteur inscrit, en haut à gauche de l'écran, le nombre 
des pièges qui entourent le lapin, en comptant aussi tous ceux 
qui composent la bordure du champ. 


Vous n'avez plus qu'à guider logiquement votre lapin en uti- 
lisant les quatre touches de déplacement. 


Que vous ayez évité ou non les pièges, vous découvrirez, à 
chaque fin de jeu, leur plan précis avec votre nombre d'essais 
parfois impressionnant. 


Si votre lapin, toujours affamé, veut repartir à la recherche 
d'une autre carotte, appuyez sur n'importe quelle touche. 
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9raphiques 


Inifialisation 
des caractères 













X() et Y( )- 
nombre de cCarac- 
tres de déplace- 
ment dansles 4 

directions 







Afficher le 
jeo avec 

des pieges 
invisibles 


Afficher le 
lapin ef la 
carotte 


XetY= 
coordonnées 
du Japin 


Vérifier le 
nombre de pièges 
autour du 
lapin 


Afficher 
le nombre 
de pièges et 
le nombre 
d'essais 





Entrer le 
déplacement 
—AŸ 


Modifier [IX et 
IY suivant la 
valeur de A$ 


Afficher 





non 


Afficher 
le lapin 
a X,Y 


oui 
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Afficher 
les pièges 
du jeu 


Fin 


18 R 
28 R 
38 G 
40 X 
50 Y 
60 C 
200 
2108 
220 
230 
248 
250 
280 
298 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
480 
490 
500 
510 
520 
530 
540 
550 
600 
610 
620 
630 
640 
650 
660 
680 
690 
700 
710 
800 
810 
820 
830 
848 
850 
980 
998 
1800 
1010 
1815 
1020 
1830 
1840 
1100 
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EM CHAMP DE CAROTTES 
EM 

OSUB 1906 
(1)=1:X(2)=-1:X(3)=0:X(4)=0 


(1)=0:Y(2)=0:Y(3)=1:Y(4)=-1 
LS:PAPER 3:INK 0 

FOR I=1 TO 100 
X=INT(RND(1)#32)+3 
Y=INT(RND(1)#21)+3 

IF SCRN(X,Y)<>32 THEN 210 
PLOT X,Y,108 

NEXT I 

REN 2e 
REM AFFICHE LE JEU 

FOR 1=2 TO 35 

PLOT 1,1,98:PLOT I,25,98 


IF 125 THEN 348 

PLOT 2,1,98:PLOT 35,1,98 

NEXT I 

PLOT 18,2,99 

X=18:Y=24:PLOT X,Y,97 

E=0 

REM ------------------ 

REM NB DE PIEGES 

P=0 

FOR I=1 TO 4 

A=SCRN(X+X(I),Y+Y(I)):IF A=100 OR A=98 THEN P=P+1 
NEXT 1 

PLOT 5,0,CHR$(4)+"PIEGES:"+CHRS(1)+MIDS(STRS(P),2) 
PLOT 206,0,CHR$(4)+"ESSAIS:"+CHRS(1)+MIDS(STRS(E),2) 
REM ------------------ 

REM DEPLACEMENTS 

GET A$ 

IF AS=CHRS(9) THEN IX=1:1Y=0:GOTO 600 

IF AS$=CHRS(8) THEN IX=-1:IY=0:GOTO 606 

IF AS$=CHRS(18) THEN IX=@:IY=1:GO0TO 600 

IF AS$=CHRS(11) THEN IX=0:IY=-1:GOTO 600 

GOTO 508 


PLOT X,Y,101 
X=X+IX: Y=Y+IY 
IF SCRN(X,Y)=98 OR SCRN(X,Y)=100 THEN 700 
IF SCRN(X,Y)=99 THEN 710 
PLOT X,Y,97 
E=E+1 
GOTO 408 
REM ------------- 
REM FIN DE PARTIE 
SHOOT:WAIT 100: G010 880 
ZAP:WAIT 100 
FOR 1=3 TO 35 
FOR J=3 TO 23 
IF SCRN(I,J)=100 THEN PLOT I, 0,98 
NEXT J,I 
GET A$ 
GOTO 68 
REM ------"-.ssesse 
REM GRAPHIQUES 
DATA 54,20,28,62,42,62,20,28,24,44,54,59,45,39,51,62 
DATA 20,20,8,28,28,28,28,8,0,0,0,0,0,0,0,0 
DATA 63,63,63,63,63,63,63,63 
FOR I=@ TO 39 
READ A:POKE 46856+1,A 
NEXT I 
RFTURN ee 
4 
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LE PROGRAMME 
Lignes 30 à 259 : initialisation 


Après l'initialisation des caractères graphiques (sous- 
programme en 1999), on place dans les tableaux X() et Y() le 
nombre de caractères de déplacement correspondant aux quatre 
directions. 


Puis on affiche à l'écran des pièges à des positions aléa- 
toires (199 pièges au total). On se sert pour cela du carac- 
tère graphique de code 19ÿ correspondant à un espace blanc. Ils 
existent donc bien, mais ils sont invisibles sur l'écran. 


Lignes 300 à 360 : affiche Le jeu 


Cette partie du programme affiche simplement des pièges au 
bord de l'écran (visibles cette fois, code 98), ainsi que le 
lapin et la carotte. 


Les variables X et Y donnent la position exacte du lapin. 


Lignes 409 à 450 : nombre de pièges 


Pour connaître le nombre de pièges autour du lapin, il suffit 
de tester directement sur l'écran, à l'aide des tableaux X et 
Y, la présence des codes 19ÿ et 98. 


, 


Lignes 509 à 660 : déplacements 
Le caractère saisi au clavier étant stocké dans la variable 
A$, on modifie, suivant sa valeur, les variables IX et IY. 


Avant d'afficher le lapin, on place un carré noir sur son 
ancienne position. 


La ligne 629 teste si le lapin n'est pas sur un piège (code 
199 pour les invisibles, code 98 pour ceux du bord). 


La ligne 639, elle, teste la présence éventuelle de la ca- 
rotte. 
Lignes 709 à 850 : fin de partie 

Quelle que soit l'issue du jeu, on affiche à l'écran tous 


les pièges jusqu'alors invisibles en testant toutes les posi- 
tions de l'écran par une fonction SCRN. 
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NOM DU PROGRAMME : PAGE 
CHAMP DE CAROTTES 1/1 


Liebe des VARIABLES 


Indice 











pi 
Incrément en Ÿ pour le déplacement 
du lapin 


Boucle FOR/NEXT 











Nombre de pièges autour du lapin 





Variable 





| oordemnées du lapin 


Variable 





Nombre de caractères de déplace- 
ment dans les 4 directions 


Tableau 


























—< [XX |—< [>< [er] m |> 
<# 


BUS DR DR DS D OR CR RS D RS ES RUE NS ON NS EU CE 


© "  —— 


6/1980 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite( )Editions du P.S.I. 
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PIRANHAS 


Ne paniquez pas si vous voulez sauver cet imprudent explora- 
teur tombé dans l'Amazone au milieu des piranhas. 


Sa seule chance est que ces féroces poissons s'entre-dévorent 
lorsqu'ils se retrouvent côte à côte. 


Tout en déplaçant l'explorateur dans les quatre directions 
avec les quatre flèches du clavier, vous imaginerez sûrement 
une tactique pour forcer les piranhas à se rencontrer jusqu'au 
dernier. 


Vous devrez alors être prêt pour une autre traversée de 
l'Amazone, dès que vous aurez appuyé sur n'importe quelle tou- 
che. 





LS MERE RARE EEE RERERRE 
# * 
Æ # 
is ; î 
* + 
È is C7 & é 
# 4 # 
Le FERA SS ; 
+ $ + 
# + $ # 
# Là # 
Æ + 
# # 
+ # 
Æ É 
# # 

+ 


EE EE EEE EE EE EE EE ER EE RCE EEE | 
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Initialisation 


des caractères 


graphiques 
Afficher 
le jeu 

P= Nombre 

de piranhas 


Emplacement 





aléatoire des 
piranhas dans 


PC 


A: emplacement 
aléatoire 
de l'explorateur 








piranha 
éliminé 
? 












explorateur oui 
élimine 
non 
Afficher 
hombre de 


déplacements 





Déplacement 
de l'explorateur 
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REM PIRANHAS 

REM --------------------- 

GOSUB 20600 

INK 1:PAPER 6:CLS 

FOR I=3 TO 34 

PLOT 1,3,42:PLOT 1, 

IF 1<24 THEN PLOT d' 4: PLOT 34,1,42 


EXT 
Ée SENT(RND )e11)+20 
I= 


1 “ABRBD INT (RND(E)-26) NT RAD) 19) 240-209 
. FU 


d LBBB0+ INT (RND(1)»30)+INT (RND(1)*19)»40+205 
POKE A,101 

GET A$ 

REMi == =sSS rss Sssresses 

REM DEPLACEMENT PIRANHAS 

FOR I=1 TO P 

IF P(I)=0 THEN 400 

POKE P(I),32 

FOR J=1 T 


0 4 
IF PEEK(P(I)+T(J))=101 THEN 800 
IF PEEK(P(I)+T(J))>96 THEN 380 
NEXT J 
GOTO 410 
P(1)=0:G=G+1:PING 


IF G=P-1 THEN 900 

GOTO 600 

IF INT((A-#BB80)/40)>INT((P(I1)-#BB80)/40) THEN K=2:GOTO 458 
IF INT((A-#BB80)/40)<INT((P(I)-#BB80)/40) THEN K=4:GOTO 458 
IF A-1>=P(I) THEN K=1:GOTO 458 

K=3 


IF PEEK(P(I)+T(K))=42 THEN 600 
PCI) P(I)+T(K) 

RE DEPLACEMENT JOUEUR 
CS=KEYS:1F C$="" THEN 700 
C=ASC(CS) 

FOR J=1 TO 4 

IF C=C(J) THEN 650 

NEXT J:GO0TO 780 

IF PEEK(A+T(J))=42 THEN 700 
IF PEEK(A+T(J))>96 THEN 800 
POKE A, 32 

A=A+T(J) 

POKE A,101:D=D+1 

POKE PET), G(K) 

NEXT 


REM PERDU 
POKE A, 32 

EXPLODE 

GET A$ 

GOTO 40 

RÉM same 

REM GAGNE 

PING:WAIT 60: SHOOT:WAIT 60:ZAP 

PAPER @:PLOT 29,25, "DEPLACEMENT: "+STRS(D) 
GET AS 


La 
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930 GOTO 40 

1909 STOP 

1988 REM ---------------- 

1998 REM INITIALISATION 

2008 DATA 06,46,42,63,46,46,0:0,0,29,21,63,29,29,0,0 
2818 DATA 31,4,14,31,31,23,14,4,4,14,23,31,31,14,4,31 
2026 DATA 14,47,47,37,63,14,14,31 

2030 FOR I=0 TO 39 

2046 READ A:POKE 46856+1, A 

2050 NEXT I 

2068 DIM P(30) 

2070 T(1)=1:T(2)=40:T(3)=-1:1(4)=-40 

2080 C(1)=9:C(2)=10:C(3)=8:C(4)=11 

2090 G(1)=97:G(2)=99:G(3)=98:G(4)=100 

2100 RETURN 
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LE PROGRAMME 
Lignes 30 à 180 : initialisation 


Après l'initialisation des caractères graphiques, on place 
dans le tableau T() les directions de déplacement des piranhas, 
et dans le tableau C() les valeurs ASCII des touches de dépla- 
cement (sous-programme en 2#ÿ#ÿ). 


Le nombre de piranhas est déterminé par la variable P (nombre 
aléatoire). 


On remplit le tableau P() avec les coordonnées des piranhas, 
A donnant celle de l'explorateur. 


Lignes 300 à 460 : déplacement des piranhas 


Chaque piranha est déplacé sur l'écran dans le sens qui le 
rapproche le plus de l'explorateur, sauf s'il trouve un congé- 
nère sur une case adjacente. Dans ce cas, il s'empresse de 


l'avaler (lignes 359 et 389 à 499). 


Lignes 600 à 730 : déplacement de L'explornateur 

On déplace l'explorateur suivant la touche appuyée (saisie 
par KEY$). 
Lignes 800 à 939 : fin de partie 


Suivant l'issue de la partie, l'ORIC fait entendre une explo- 
sion (perdu !) ou une cloche (gagné !). 


Si la partie est gagnée, il affiche en plus le nombre de 
déplacements. 


88 


611980 


L'ORIC À L'AFFICHE 











DATE NOM DU PROGRAMME : PAGE 
PIRANHAS 1/1 


IDENTIFICATION des VARIABLES 







à 
<= 
Le] 
TT 
Fr 
Le) 
T 
— 
] 
= | 
su 
U 
© 
un 
. 
ct 
me. 
Q 
35 
es 
D 
—— 
5 
x 
O 
= 
[(e] 
TS: 
[er] 
es 
ee] 
[= 
TS 








ER IILRE Caractère saisi au clavier 

éames - ln) Valeur numérique de C$ 

ane TT Direction du déplacement de 
Variable l'explorateur È 

il en Valeurs ASCII des quatre touches 

(1) Tableau de dé 


Indice 






oo |[Q |> 
ke # 







o 


placement 





X 
Nombre de piranhas éliminés 


Boucle FOR/NEXT 








lt - LE 











Indice Boucle FOR/NEXT 





Compteur Nombre de piranhas 









TU GG = lo 
— 
Lu 







Tableau 


Position des piranhas 
Nombre de caractères de déplacement 
pour chaque direction 








— 





RRREREEE 


























PRRFPÉPÈRE 


{(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du P.S.I. 
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AWARI 


AWARI est un combat stratégique entre l'ordinateur et vous. 


L'ORIC vous demande d'entrer votre prénom, puis il dessine 
le jeu sur l'écran de cette façon : 


3 3 3 3 3 3 


EXEMPLE 1 : 0 
7 | 


Tout au cours d'une partie, l'ordinateur affichera votre 
prénom, puis un message, soit : 


PRENOM 
JE JOUE EN 


ou : PRENOM 
QUEL EST VOTRE MOUVEMENT ? 





PARTIE 1 0 


L'ordinateur joue sur les cases du haut et le joueur sur les 
cases du bas. 


Il y a trois pions au départ dans chaque case. Le jeu consis- 
te à déplacer les trois pions d'une case, de un en un, dans les 
cases suivantes et dans le sens inverse des aiguilles d'une 
montre 


EXEMPLE 2 : 0 PARTIE 1 0 
MOUVEMENT +1 
EE AE CE MRC DE 9 ES 


EXEMPLE 3 
RESULTAT 


Oo 
TD 
> 
el 
H 
H 
[ss | 
H 
m 
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Il conviendra de considérer les cases sous les numéros sui- 
vants 


sens du jeu 


total 7 total 
EXEMPLE 4 : de 0 0 du 
l'ordinateur joueur 


sens du jeu 


Ainsi, dans l'exemple 2, la case mouvementée était la case 4 : 


PRENOM 
QUEL EST VOTRE MOUVEMENT ? 


Taper 4. 


Si le dernier pion placé s'arrête dans une case TOTAL, le 
joueur doit rejouer. Si le dernier pion s'arrête avant ou après 
cette case, c'est au joueur adverse de jouer. Dans l'exemple 2, 
c'est au joueur (et non à l'ordinateur) de rejouer. 


La partie s'arrête quand toutes les cases de l'un des deux 
joueurs sont vides. 


L'ordinateur signale alors qui a gagné. Le nombre de parties 
gagnées reste d'ailleurs affiché en permanence sur l'écran. 


Puis le jeu initial se redessine, vous invitant à refaire 
une partie... 





PS 12 11 F4 15 16 1! 








2. ‘4 PARTIE : € F1 
EL HT 4 14 + 1% 1 


T 
4 
LE 
ss 
FÆ 
ne. 


J-FRANCOTE 
| QUEL EST LOTRE MOLUEMENT 
| 


QRIC: & J-FRANCOIE : 1 


L'ORIC A L'AFFICHE 
Ihitialisation 
graphique 
Entrée 
prénom 
Initialisakion 
n° de partie 





Placer 3 pions 
par case 
Dessiner 
le jeu 


Vérifier s'il 
reste des pions à 
chaque joueur 
















rt non Afficher Incrémenter 
res ci 5 le resultat n° partie 


oui 





Reporter fableau 
des pions dans 
tableau secondaire 
our éfude des 
solutions 







Entrer 
mouvement 








mouvement 
OK. 
? 


Déplacer les 
piohs 


Chercher 


la meilleure 
solution 





L'ORIC A L'AFFICHE 
————————  ——— 


18 REM AWARI 
DO REM Sn ese 

36 GOSUB 3000 

48 DIM B(14),K(14),G(14),H(14) 

59 CLS:PAPER 4:INK 1 

60 INPUT “VOTRE PRENOM ";PS 

70 PA=1:T1=0:T2=0 

80 E=INT(RND(1)+.5) 

98 CLS:PRINT 

108 PRINT TAB(27);CHRS(4); CHR$(27)+"JAWARI"; CHRS(4) 
188 REN -=---- 

198 REM AFFICHE LE JEU 

208 FOR I=1 TO 13:B(I)=3:NEXT I 

218 B(7)=8:B(14)-0 

228 FOR I=1 TO 37 

230 PLOT 1,18,"a":PLOT J,12,"a" 

248 NEXT I 

258 PLOT 3,19,P$ 

269 PLOT @,11,LEFTS(STRS(B(14))}+" ",3)+CHRS(1)+"b PARTIE : 
+STRS(PA) 

278 PLOT 33,11,CHRS$(1)+"b"+STRS(B(7)) 
280 FOR J=13 TO 8 STEP-1 

298 PLOT 3+(13-J)#5,9, CHR$(1)+"b"+LEFTS(STRS(B(J))}+" ",3) 
300 NEXT J 

310 PLOT 33,9,CHR$(1)+"b" 

320 FOR J=1 TO 6 

330 PLOT 3+(J-1)#5,13,CHR$S(1)+"b"+LEFTS(STRS(B(J))+" ",3) 
340 NEXT J 

350 PLOT 33,13,CHR$(1)+"b" 

389 REM -------------- 

390 REM LE JEU 

409 B-0 

418 FOR I=1 TO 6 

420 IF B(1)<>8 THEN B=1 

430 NEXT I:1F B=0 THEN 1700 

448 FOR I=8 TO 13 

450 IF B(I)<>@ THEN B=1 

468 NEXT I 

476 IF B=06 THEN 1700 

480 IF E=1 THEN 908 

490 PLOT 3,20@,"QUEL FST VOTRE MOUVEMENT ? 
598 GEI A$:A=VAL(AS) 

510 IF A<1 OR A>6 THEN 508 

520 IF B(A)=0 THEN 580 

530 PLOT 30,20, STRS(A):GOSUB 740 

540 IF E=1 AND A=14 THFN 268 

550 IF A=7 THEN 260 

560 IF F=1 THEN F-0:GOTO 260 

578 F=1:GOTO 260 

680 REM -------------- 

698 REM DEPLACEMENT DES PIONS 

700 A=J 

710 FOR Z=1 TO 14 

728 B(Z)=G(Z) 

730 NEXT Z 

740 P=B(A):B(A)=0 

758 FOR I=1 TO P 

168 A=A+1:1F A=15 THEN A=1 

776 B(A)=B(A)+1 

780 NEXT I 

798 RETURN 

860 REM -----"--"-- 


te Lroee 
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890 

900 

914 

9e 

938 

948 

958 

960 

970 

980 

998 

10840 
1810 
1028 
1630 
1040 
1050 
1060 
1870 
1880 
1890 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1268 
1270 
1280 
1298 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1480 
1490 
1500 
1510 
1520 
1530 
1548 
1550 
1560 
1570 
1684 
1690 
1700 
1710 


L'ORIC A L'AFFICHE 


REM COUP DEF L'ORIC 
PLOT 3,20,"JE JOUE EN 
FOR J=1 TO 14 


G(J)=B(J) 
NEXT J 
IF B(13)=1 THEN 1500 
IF B(13)>=3 THEN 1500 
IF B(12)>=3 THEN 1510 
IF B(11)>=4 THEN 1520 
FOR J=13 TO 8 STEP-1 
IF G(J)=0 THEN 1070 
GOSUB 746 
IF A=14 THEN 1550 
H(J)=A 
FOR U=9 TO 13 
Z=U+B(U) 


IF Z=14 THEN K(J)=K(J)+1 
NEXT U 

NEXT J 

1Z=0 

IF G(12)>=5 THEN 1518 
IF G(8)=1 THEN 1540 

IF G(9)=1 THEN 1538 

FOR J=8 TO 13 

U=K(J) 

IF U>Z THEN GOSUB 1568 
NEXT J 

IF Z>0 THEN 1288 

Z=8 

FOR J=8 TO 12 

U=H(J) 

IF U>7 AND U>6 THEN GOSUB 1568 
NEXT J 

IF A>7 THEN GOTO 1280 
Z=7 

FOR J=8 TO 13 

U=H(J) 

IF U<Z AND U>@ THEN GOSUB 1560 
NEXT J 

FOR U=8 TO 13 

K(U)=0 

H(U)=0 

NEXT U 

C=A-7 

PLOT 14,20,STR$(C) 

J=A 

GOSUB 708 

GOTO 548 

REM ------------- 

REM COUP CHOISI PAR L'ORIC 
A=13:GOTO0 1280 
A=12:GOT0 1288 
A=11:GO10 1288 

A=9:GOTO 1288 

A=8:GOTO 1280 

A=J:GOTO 1280 

Z=U:Az=J 

RETURN 

REM ------------- 

REM RESULTATS 

IF B(14)>B(7) THEN 1800 
IF B(14)<R(7) IHEN 1750 
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1720 PLOT 3,20,"NOUS SOMMES EXAEQUO " 
17306 E=INT(RND(1)+.5) 

1748 GOTO 1858 

1750 PLOT 3,20,"VOUS AVEZ GAGNE " 
1760 Ti=Ti+i 

1770 FE=1 

1780 GOTO 1850 

1800 PLOT 3,20,"J'AI GAGNE " 
1810 T2=T2+1 

1820 E-0 

1850 PA=PA+1 

1868 PLOT 3,25,"ORIC:"+STRS(T2)+CHRS(1)+" "4+PS4+": "4 STRS(T1) 
1870 GET A$ 

1888 PLOT 37,11," " 

1898 GOTO 208 

2988 REM ------------- 

2998 REM GRAPHIQUES 

3000 FOR I=0 TO 15 

3010 READ A:POKE 46856+1, A 

3020 NEXT I 

3030 RETURN 

3100 DATA 0,8,0,63,63,0,0,0,12,12,12,12,12,12,12,12 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 30 à 359 : initialisation 


Après l'appel du sous-programme de définition des caractères 
graphiques (ligne 3999), le programme saisit le prénom du 
joueur et affiche à l'écran le dessin du jeu. 


La variable E détermine le tour du joueur si sa valeur est #ÿ, 
et le tour de l'ORIC si sa valeur est 1. 


Au premier tour, cette variable contient un nombre aléatoire, 
mais, dès la deuxième partie, c'est toujours le perdant qui 
commence. 


Lignes 380 à 480 : test de fin de partie 
Le jeu doit s'arrêter quand un des joueurs n'a plus de pions 
dans son terrain. 


Dans ces lignes, on vérifie à chaque tour cette éventualité. 
Si c'est le cas, on passe à la ligne 17ÿÿ. 


En ligne 48%, le programme se sépare en deux, suivant la 
valeur de E. 


Lignes 490 à 530 : E=0, tour du joueur 


Dès l'entrée du mouvement, on vérifie sa validité. En cas de 
mauvaise réponse, comme il n'est pas possible de passer son 
tour, la question est de nouveau posée jusqu'à l'obtention 
d'une réponse correcte. 


L'appel du sous-programme de la ligne 74ÿ déplace les pions 
des cases concernées. 


Lignes 880 à 1570 : E=1, tour de L'ORIC 
Pour déterminer son choix, l'ORIC utilise trois tableaux 
pour comparer les solutions possibles et les plus avantageuses. 


La solution trouvée est placée dans A comme pour le joueur, 
ce qui permet d'utiliser le sous-programme de déplacement des 
pions des lignes 799 à 79. 


Lignes 709 à 7199 : déplacement des pions 
On déplace les pions de la case pointée par À en les distri- 


buant dans les cases suivantes, en considérant que la case 15 
(inexistante) correspond à la case 1. 


Lignes 1709 à 1890 : nésul£tats 
Dès que l'un des joueurs n'a plus de points, on affiche à 


l'écran le nombre de parties gagnées par chacun ainsi qu'un 
message de félicitations. 
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NOM DU PROGRAMME : PAGE 
AWARI 1/1 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 


6/1980 


_variabie  L h 
L_variate |: 


FR 
Bu | 
Éo 
El 


C 
E 


Votre mouvement 
Votre mouvement 


Si B=ÿ : fin de partie 


Nombre de pions dans chaque case 





Numéro de la case jouée par l'ORIC 
Si E=-ÿ : tour du joueur 
Si E=1 : tour de l'ORIC 








on 


Sauvegarde du tableau B() 





Nombre de pions dans chaque case 
ès déplacement 





Boucle FOR/NEXT 
Boucle FOR/NEXT 








Tableau 


Coefficient de chaque case 





Compteur 





Nombre de pions à déplacer 


Votre prénom 





Numéro de la partie 





Nombre de parties gagnées par le 
joueur 





+ [= 7 |S = 
D [= [> pe 
Re 





[es 
EE 








(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite( )Editions du PSI. 
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CHASSE AU TRÉSOR 


Vous n'avez pas de chance au jeu ? 


Alors voilà une chasse au trésor où la ruse et non le pur 
hasard vous sera utile pour gagner. 


Cette chasse au trésor se joue à deux. Une grille de 18 sur 
19 numéros s'inscrit devant vous. Il suffit de déplacer les 
deux chasseurs avec les quatre flèches du clavier, selon l'iti- 
néraire qui rapportera le plus de points (verticalement et 
horizontalement). 


Attention, ne détruisez pas toute une zone sans prévoir un 
possible retour en arrière fructueux... 


La partie s'arrête quand l'un des deux joueurs a obtenu au 
moins 259 points et les résultats s'affichent alors. Pour 
repartir, il faudra appuyer sur n'importe quelle touche. 


Maintenant, bonne chasse ! 








AHO0O0GGÈ6éT7 60080 
a53111880555623308 
573679579300: 9389 
S178003864 05030 
246178606008 09344 
5319004244 48728 
SRSOSOGS:0634886 
1569683577 069788 
3714901244 28209 
AH 31:7346004009 
C'EST # QUI JOUE d: 158 d: 135 
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Initialisation 
des caractères 
graphiques 





Afficher vn 
tableau de 
48 x410 avec des 
NB aléatoires 






Afficher les 
symboles des 
joueurs 





Affiche 
résultats 





99 


L'ORIC A L'AFFICHE 


ee 


Nav 


18 REM CHASSE AU TRESOR 

DO REM = -carctirene-ennees 

30 DATA 45,45,41,63,12,12,12,30,12,12,8,63,45,63,12,30,45,45,41,63, 
12,12,12,30 

40 FOR I=8 TO 23 

50 READ A:POKE 46856+I,A 

60 NEXT I 

76 CS$(1)=CHRS(4):C$(2)=CHR$(5): C$=CHRS(2) 

80 X(1)=9:X(2)=108 

98 Y(1)=6:Y(2)=5 

138 PAPER 9:INK 2:CLS 

140 FOR 1=1 TO 10 

150 FOR J=1 TO 18 

160 PLOT J#2,1#2,48+INT(RND(1)*10) 

176 NEXT J,1 

188 PLOT 6,22,"C'EST QUI JOUE "+C$(1)+"b: "+C$(2)+"b:" 
2BQ REM re mee -unce e, 

290 REM LE JEU 

308 FOR I=1 TO 2 


318 PLOT X(1)#2-1,Y(1)#2,C$(1)+CHRS(96+1)+CS 
328 PLOT X(2)#2-1,Y(2)#2,C$(2)+CHRS$(97+1)+CS 
325 PLOT 5,22,C$(1)+"a"+Cs 


348 GET A$:A=ASC 
359 IF A=8 AND X 
360 IF A=9 AND X 
376 IF A=11 AND Y 
380 IF A=10 AND Y 
398 GOTO 340 

400 PLOT AX#2-1,AY»2,C$+"O0" 

410 T(I)=T(I)+SCRN(X(I)*2,Y(1)*2)-48 

426 PLOT 12+1%8,22,STRS(T(I)) 

438 IF T(I1)>=250 THEN 580 

448 NEXT I 

450 GOTO 300 

480 REM ------" 

498 REM RESULTATS 

500 CLS 

510 IF T(1)>T(2) THEN I=1 ELSE I=2 

520 PLOT 15,9,CHR$S(18)+C$(1)+CHRS(96+1)+":"+STRS(T 
530 PLOT 15,18, CHR$(18)+C$(1)+CHR$(96+1)+":"+STRS( 
540 PLOT 15,13, CHRS(18)+CS(2)+CHRS(97+I)+": "+STRS( 
559 PLOT 15,14, CHR$(18)+C$(2)+CHRS(97+1I)+":"+STRS 
569 PLOT 11,18, "C'EST"+C$(I)+"a"+CS$+"QUI GAGNE" 
570 GET A$ 

588 RUN 


1 THEN X( 


1 
1 
330 AXE CLS AVES 
(1h 
(1)<18 THEN X 
) 
) 


,Ÿ 
Ÿ 
I) 
1) 
A$ 
I) I)=X(I)-1:GOTO 400 
1) (1)=X(1)+1:GOT0 408 

(1)>1 THEN Y(I)=Y(I)-1:GOTO 400 

(1)<18 THEN Y(1)=Y(1)+1:GOTO 480 


pré 
4 


WE 


LI] 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 39 à 180 : initialisation 


Après l'initialisation des caractères graphiques, on place 
dans les tableaux X() et Y() les coordonnées de départ des 
deux joueurs et, dans C$(), les codes des couleurs. 


On affiche à l'écran, par deux boucles imbriquées, une grille 
de nombres aléatoires de 18 sur 19. 


Lignes 309 à 450 : Le jeu 


Après l'affichage des figures, on modifie les coordonnées du 
joueur en cours suivant la valeur du caractère saisi au cla- 
vier. 


Puis on ajoute au total des points du joueur le nombre sur 
lequel on vient de se placer. 


On récupère cette valeur en effectuant un SCRN(,) sur l'écran. 
Le total est affiché au bas de l'écran. 


On vérifie, après chaque tour, si le joueur ne dépasse pas 
les 259 points requis pour gagner (tableau T()). 


Lignes 599 à 589 : fin de partie 


Un des joueurs ayant dépassé 259 points, on affiche à 
l'écran les résultats de la partie en précisant le gagnant. 
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6,1980 


L'ORIC A L'AFFICHE 


NOM DU PROGRAMME : PAGE 
CHASSE AU TRESOR 1/1 


IDENTIFICATION des VARIABLES 


ORIGINE 
SZ OBSERVATIONS 
d 
© 
£ 
s Q 


Tableau 


>< 


ENIRDNEN SRE CS 
— 








= > > > 
LS 


Pepe 1 
me 
a 





+ 


PES 





I 





Boucle FOR/NEXT 





—1 |S o 
— 
Re 


Total des points de chaque joueur 





>< 
= 
— 





coordonnées des joueurs 
Tableau 


















































= 
F an 

= 
= 





{*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite( )Editions du PSI. 
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L'ORIC A L'AFFICHE 


TOUR DE HANOÏ 


Face à ces tours de Hanoï, vous devrez faire preuve de stra- 
tégie, de réflexion et de beaucoup de patience. 


Il s'agit de faire passer, sur la tour de droite et dans le 
même ordre, un certain nombre de disques empilés sur la tour 
de gauche, en vous aidant de la tour du milieu. 


Vous pouvez choisir le nombre de disques à manoeuvrer entre 
trois et sept. 


L'ORIC demande, en bas de l'écran, la tour de départ du mou- 
vement, puis la tour d'arrivée : entrer 1, 2 ou 3, numéros des 
tours de gauche à droite. 


11 refuse les ordres impossibles à exécuter : on ne peut 
poser un disque sur un autre moins large. Par contre, un disque 
peut aller de la tour 1 à la tour 3, puis revenir à la tour 2. 


Il affiche aussi, tout au long du jeu, le nombre d'essais. 


Petit conseil : il vaut mieux, pour vos nerfs, commencer par 
trois disques ! 


TOUR: 2 





TOUR: 3 


TOUR DCE DEFART : 
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hitialisation 
des caractères 
graphiques 


Entrer nombre 
de disques 















Remplir le 
tableau D( ) 
avec les Valeurs 


de départ 









| Dessin 


des Hours 


Entrer tour 
de départ 






Numero du 
disque superieur 
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Entrer Four 
d'arrivée 


Numero du 
disque 
supérieur 





Déplacer 
disque dans 
le Fableau 


Afficher 
les disques 
Incrémenter 
compteur 


Afficher 
compteur 
d'essais 













Vérifier siles 
disques sont 
Fous sur la 

froisième tour 


oui 
Afficher 
“Réussi” 





18R 
28 R 
36 G 
48 I 
50 I 
60 I 
70 C 
80 F 
98 I 


L'ORIC A L'AFFICHE 


EM TOURS DE HANOI 

EM -----"- 
OSUB 2000 

NK L:PAPER 8:CLS 


NPUT "NOMBRE DE DISQUES ";N 
F N<3 OR N>7 THEN 408 
LS 
OR I=1 TO 7 
F I<=N THEN D(1,1)=8-I 
NEXT I 
GOSUB 1500 
REM -----------.—- 
REM LE JEU 
PLOT 1,24,CHR$(4)+"TOUR DE DEPART:  "+CHR$(1) 
GET TD:IF TD<1 OR TD>3 THEN 210 
De 800:1IF Q=1 THEN 260 
PLOT 1,24,CHR$(4)+"TOUR D'ARRIVEE: “+CHR$S(1) 
GET TA:IF TA<i OR TA>3 THEN 258 
IF TA=TD THEN 200 
J=TA:GOSUB 800:IF Qz=1 THEN 298 
IF D(TD,DD)>D(TA,I) THEN 200 
DA=I+1 
D(TA,DA)=D(TD,DD): DUTO, DD)=0 
I=TD:J=DD:GOSUB 1080 
I=TA:9J=DA:GOSUB 1000 
E=E+1 
PLOT 27,1, CARACOE ESSAIS "#STR$(E) 
FOR I=1 TO N 
IF D(3,1)=0 THEN 200 
NEXT I 
PLOT 2,24,"REUSSI EN"+STRS(E)+CHR$(1)+"COUPS" 
GET A$ 
RUN 
REM ------------------- 
REM NUMERO DISQUE SUPERIEUR 
FOR I=7 TO 1 STEP -1 
IF D(J,1)<>6 THEN Q=6:GOTO 838 
NEXT I:Q=1 
RETURN 
REM ---22--2-- éme 
REM AFFICHE LES DISQUES 
FOR K=7 TO 1 STEP-1 
IF D(I1,J)>K THEN PLOT I#10-K,I#9-J,"e":GOTO 1030 
IF D(I1,J)=K THEN PLOT I#10-K,I#9-J,"d" ELSE PLOT I#10-K,I#9-J, 


NEXT K 

FOR K=1 TO 7 

IF D(I,J)=K THEN PLOT K+(1)#10,1#9-J,"c":GOTO 1070 

IF D(I,9J)>K THEN PLOT K+I#10,I#9-J,"e" ELSE PLOT K+I#10,I#9-9, 


NEXT K 
RETURN 

REM ==" 

REM DESSIN DU JEU 

FOR 1=1 TO 3 

PLOT I*10, q- 1)#9+1,"a"+CHRS(5)+"TOUR:"+STR$S(I) 

FOR J=1 TO 

GOSUB 1900 

IF Joi THEN PLOT Iw10,1#9-J,"b" ELSE PLOT I*10,1#9-J,"F" 
NEXT J 

NEXT I 

RETURN 

REM = 

REM GRAPHIQUES 

DATA 30,63,63,30,12,30, 30,30, 30,30, 30,30, 30,30, 30,30 
DATA 0,0,62,63,63,62,0,0,0,8,31,63,63,31,0,0 

DATA 0,0,63,63,63,63,0,0,30, 30,30, 30,30, 30, 30,63 

FOR 1=6 TO 47 

READ A:POKE 46856+I,A 


NEXT I 
RETURN 4 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 39 à 119 : initialisation 


Après l'initialisation des caractères graphiques par le sous- 
programme en 2999, on saisit le nombre de disques à jouer 
entre trois et sept. 


On remplit le tableau de départ en mettant tous les disques 
sur la première tour, le disque le plus grand étant placé à la 
position 1. Puis l'on fait appel au sous-programme en 159 pour 
le dessin du jeu. 


Lignes 299 à 340 : déplacement des disques 


On commence le jeu en saisissant le numéro de la tour de dé- 
part (on déplace, dans ce cas, le disque supérieur). 


Le sous-programme en 8ÿÿ trouve le numéro de ce disque. Si 
cette tour ne comporte aucun disque, on met le drapeau à 1 
(variable Q). Au retour du sous-programme, si Q=1, on revient 
à la saisie de la tour de départ. 


On utilise le même principe pour la tour d'arrivée. Au retour 
du sous-programme en 89%, on teste si le disque du dessus n'est 
pas plus petit. Si c'est le cas, on revient à la saisie de la 
tour de départ. 


Lignes 359 à 409 : fin du jeu 

On teste sur la troisième tour si tous les disques sont 
déjà placés. Si ce n'est pas le cas, on retourne à la ligne 
299 pour le dessin des disques. Dans le cas contraire, on affi- 
che le message ‘“REUSSI EN X COUPS". 
Lignes 1090 à 1080 : dessin des disques 

Ces lignes dessinent sur l'écran, avec des caractères semi- 
graphiques, le disque pointé par les variables I et J dans le 
tableau D(). 


Lignes 1509 à 1579 : dessin des touxns 


Cette portion de programme affiche à l'écran le jeu de 
départ en utilisant le sous-programme en 19ÿ@. 
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NOM DU PROGRAMME : 
TOURS DE HANOI 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 


le) ha 
QUer 
e 


1 


ER Emplacement du disque sur la tour 
Variable d'arrivée 


[=] 
> 


Compteur 


jte | 
L_ compteur | 
variante || 
Luariane | 
D indice | 

X 


E 


J 





K 





























bn, | 
Ets 
ER 
FE 
Fer 
h  … | 
FE 
ns 
Ha) 
en 
pl 


Variable 














(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du PS. 
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TAQUIN 


Le taquin ou puzzle à 15 a été inventé par Sam Lloyd aux 
Etats-Unis, dans les années 188%. Il se compose d'un plateau 
et de quinze plaquettes numérotées de 1 à 15, que l'on dispose 
en désordre (plus de vingt mille milliards de possibilités). 
Le vide, sur le plateau, permet de bouger les plaquettes pour 
les remettre dans leur ordre croissant. 


Lancez le programme en tapant RUN. Après quelques instants, 
le temps de mélanger le taquin, le plateau s'affiche à l'écran. 


Seules les plaquettes voisines de la case vide peuvent se 
déplacer. 


Il ne s'agit pas du jeu original de Sam Llyod. En conséquence, 
toutes les positions de départ permettent une reconstitution de 
l'ensemble du jeu. 


TAGUIH 
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Remplir le 
Fableau D 
avec les 4 
directions 















Initialisation 
des caractères 
gra phiques 















Remplir le 
tableau T: 
T(4):1... T(I5):45 


Mélanger le 
tableau T 
Afficher 
le Faquin 
Entrer le 


numéro à 
deplacer +R 
















Rechercher 
l'emplacement 
de ce numéro 













numéro 

à côte de lacase 

vide 
? 





oui 






Déplacer le 
huméro dans 
la case Vide 


Afficher 

le numéro 
Incrémenter 
et afficher le 


nombre 
FAURAr 
d'essais 













Vérifier 
l'ordre du 
Faquin 
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640 
650 


680 
690 
700 
710 
720 
730 
740 
750 
768 
800 
810 
820 
830 


840 
850 
880 
890 
900 
910 
920 
930 


[a [1[4]940 
ARE 
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REM TAQUIN 
REM ------------------ 
DIM T(16) 
D(1)=-4:D(2)=4:D(3)=1:D(4)=-1 
DATA 06,0,0,0,0,0,0,63,1,1,1,1,1,1,1,63,1,1,1,1,1,1,1,1 
FOR I=0 TO 23 
READ A:POKE 46856+I,A 
NEXT I 

INK 9:PAPER 1:CLS:PRINT 

PRINT TAB(27);CHR$(4); CHR$S(27); "JTAQUIN"; CHR$(4): PRINT 
REM ----------—__————- 

REM MELANGE DU TAQUIN 

FOR I=1 TO 15:T(I)=I:NEXT I 

V=16:E=0 

FOR I=1 TO 128 

A=INT(RND(1)#4)+1 

IF V+D(A)<1 OR V+D(A)>16 THEN 238 

IF INT(V/4)=V/4 AND A=3 THEN 230 

IF INT(V/4)=(V-1)/4 AND A=4 THEN 230 
T(V)=T(V+D(A)) 

T(V+D(A))=0 

V=V+D(A) 

NEXT I 

REM ----------------- 

REM DESSIN DU TAQUIN 

PRINT" aaaaaaaaaaaaaaaaaaaa" 
FOR I=1 TO 4 

PRINT" ox c c c c” 
PRINT" c € c c c" 
PRINT" caaaabaaaabaaaabaaaab" 
NEXT I 

FOR I1=8 TO 15 

IF T(I+1)=0 THEN 510 

IF T(I1+1)<10 THEN 588 
PLOT9+5#(I1-INT(1/4)#4),5+INT(I/4)#3,STR$(T(I+1))+CHR$(@):GOTO 5 


PLOT 18+5#(I-INT(I/4)#4),5+INT(1/4)#3,STRS(T(I+1))+CHRS(0) 
NEXT I 

REM ----------- 

REM LE JEU 

R$="".PLOT 10,20,CHR$(3)+"QUEL NUMERO ? “ 
GET AS:1F AS=CHRS$(13) THEN 630 

RS=RS+AS: PLOT 25+LEN(RS),20,A$:GOTO 610 
R=VAL(RS) 

IF R<i OR R>15 THEN 600 

FOR I=1 TO 16 

IF R=T(I) THEN 680 

NEXT I 

R=I 

FOR I=1 TO 4 

IF R+D(1)>16 OR R+D(I)<1 THEN 720 

IF T(R+D(I))=0 THEN 740 

NEXT I 

GOTO 600 

T(R+D(I))=T(R) 

T(R)=0 

R=R-1 

PLOT9+5#(R-INT(R/4)#4),5+INT(R/4)*3," 
J=R+D(I) 

IF T(J+1)<10 THEN 840 
PLOT9+5#(J-INT(J/4)*4), 5+INT(J/4)*3, STR$S(T(J+1))+CHR$(@): GOTO 8 


PLOT 10+5w(J-INT(J/4)#4), 5+INT(J/4)*3, STR$S(T(J+1))+CHRS(8) 
F=F+1:PLOT 13,24, "ESSAIS: "+STRS(E) 

REM --------------- 

REM FIN DU JEU ? 

FOR I=1 TO 15 

IF T(I)<I THEN 600 

NEXT I 

PLOT 9,28,"0.K VOUS AVEZ TROUVE" 

GET AS 

GOTO 98 


EE 
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L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 30 à 309 : initialisation et mélange 


Le tableau T correspond aux seize cases du taquin. On y place 
donc les numéros de 1 à 15 (ligne 29ÿ). 


Le tableau D correspond au déplacement des plaquettes. 


Tableau T() Tableau D() 
-4 
À 2 3 4 Î 
5 6 7 8 
9 19 l1 12 ll e— X —> +1 
3 dd: ° 15 / | 
+4 


On mélange les numéros en permutant deux cases désignées par 
un nombre aléatoire et le pointeur de la case vide (variable V). 


Cent vingt huit permutations sont nécessaires pour mélanger 
correctement le taquin. 


Lignes 409 à 510 : dessin du taquin 


On affiche le jeu à l'écran dans le nouvel ordre (ou plutôt 
désordre !). Les chiffres sont placés sur l'écran directement 
par des plots (lignes 46% à 51%). 


Lignes 600 à 850 : Le jeu 


On déplace le numéro tapé par le joueur en vérifiant qu'il 
n'est pas inférieur à 1 ou supérieur à 15 et qu'il est bien 
placé à côté de la case vide. Le déplacement est calculé avec 
le tableau D. Comme pour le dessin du jeu, ces nombres sont 
affichés par des plots. 


Lignes 900 à 950 : gin du jeu 
À chaque essai, on vérifie qu'il reste des plaquettes dans le 


désordre. Si c'est le cas, on retourne à la ligne 6@@ pour un 
nouvel essai. 
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NOM DU PROGRAMME : PAGE 
TAQUIN 1/1 


IDENTIFICATION des VARIABLES 


OBSERVATIONS 





© 


(1) 








Emplacement de l'ancienne case vide 








Valeur décimale de R$ 





Numéro de la case à déplacer 





Contient les nombres du taquin 


Pointeur de la case vide 





V 






































FM 
il 
den 
FA 
BR 
Ra) 
EVE 
ss) 
El 
REA 
BEM 
Éa 
ai 
SEA 
PA 








(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du P.S.I. 
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L'ORIC A L'AFFICHE 


AYEZ DU CARACTÈRE 


Ce programme permet d'obtenir les valeurs décimales d'une 
figure dessinée sur l'écran pour les utiliser par la suite dans 
vos programmes, à la place du premier ou du deuxième jeu de 
caractères. 


En appuyant sur la touche M, vous pouvez changer de mode et 
obtenir les fonctions suivantes : 


- noir = écrire en noir ; 
- blanc = écrire en blanc (c'est-à-dire le fond de l'écran) ; 
- déplacement = rien (permet de se positionner sur l'écran sans 


changer la valeur de ce qui y est déjà). 


La touche D entraîne le calcul des valeurs décimales de la 
figure (elles s'affichent à droite de l'écran) et les caractè- 
res dans leur taille normale d'utilisation. 


Pour se déplacer sur la grille, il faut utiliser les quatre 
flèches du clavier. 


Ceci permet de créer rapidement quatre caractères graphiques 
pour vos programmes en n'utilisant ni papier ni crayon ! 





MOCE HOIR 


[ J 
ei 
8 à 
cTIT Ci 
di 
SG 
14 
31 15 
Es) 15 
SE 15 
a) 15 
31 15 
| 14 ri 
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Initialisation 
des caractères 


graphiques 







M$( }=homs 


des modes 


Xer Y- 


; 
cootdonnees 
du curseur 


Dessiner 
le générateur 





Saisir un 
caractère -»A% 


oui 


oui 


ED 






Afficher Afficher 
le point le point 
enX, Y enX,Y 










Modifier X et Y Afficher 
suivant la valeurs 
touche appuyée décimales 













Poker dans 
la mémoire le 
houve au 
caractère 





Afficher 
le curseur 


en X,Y 








IIS 


RER 


10 

20 

30 

40 

60 

70 

80 

90 

100 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
300 
380 
390 
400 
410 
420 
430 
448 
450 
460 
470 
480 
490 
500 
510 
980 
990 
100 
101 
102 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
2089 
210 
210 
211 
212 
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ÊER AYEZ DU CARACTERE 
DATA 63,63,63,63,63,63,63,63,1,1,1,1, 
DATA 1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,63 
FOR I=@ TO 47 
READ A:POKE 46856+I,A 
NEXT I 
M$(1)="DEPLACEMENT":M$(2)="NOIR “:M$(3)="BLANC" 
C=98:X=7:Y=10 
REM -------------------- 
REM DESSIN GENERATEUR 
CLS:INK O6:PAPER 1:PRINT:PRINT 
PRINT “ceeeeebeeeeee" 
FOR I=1 TO 16 
IF I1=8 THEN PRINT"bbbbbbbbbbbbb":GOTO 250 
PRINT"dbbbbbbbbbbbb" 
NEXT I 
PLOT X,Y,"f" 
PLOT 19,4,"gi":PLOT 19,5,"hj" 
PLOT 18,7,"g i":PLOT 18,9,"h j" 
GOTO 1000 
REM -------------------- 
REM DEPLACEMENTS 
GET A$:IF A$="" THEN 400 
IF A$="M" THEN 1008 
IF A$="D" THEN PLOT X,Y,C:GOTO 2008 
PLOT X,Y,CHR$(C) 
IF AS=CHRS(8) THEN X=X-1:1F X=1 THEN X=13 
IF AS=CHRS$S(9) THEN X=X+1:1F X=14 THEN X=2 
IF AS$S=CHR$S(11) THEN Y=Y-1:1F Y=2 THEN Y=18 
IF A$S=CHRS(10) THEN Y=Y+1:IF Y=19 THEN Y=3 
IF M=2 THEN C=97:GOTO 508 
IF M=3 THEN C=98 ELSE C=SCRN(X,Y) 
PLOT X,Y,"f" 
GOTO 468 
REM --------------------- 
REM CHANGEMENT DE MODE 
0 M=M+1:1F M=4 THEN M=1 
8 PLOT 2,25, "MODE:"+M$(M) 
6 GOTO 408 
Q REM -------------------- 
@ REM VALEURS DECIMALES 
0 FOR I=3 TO 18 
@ PLOT 25,1," . 
@ NEXT I 
0 FOR I=3 TO 18 
0 FOR J=1 TO 7 STEP 6 
6 D=0 
8 FOR K=5 TO @ STEP -1 
0 IF SCRN(J+6-K,1)=97 THEN D=D+2°K 
8 NEXT 
@ PLOT 23+J,I1,STR$(D) 
6 IF J=1 THEN POKE 46981+I,D:GOTO 2110 
5 POKE 46917+I,0D 
0 NEXT:NEXT 
8 GOTO 588 


L'ORIC A L'AFFICHE 


LE PROGRAMME 
Lignes 39 à 309 : initialisation 


Après l'initialisation des caractères graphiques, on place 
dans le tableau M$ les noms des trois modes (noir, blanc et 
déplacement). 


Les variables X et Y donnent les coordonnées du point de 
départ. 


Les lignes 299 à 399 affichent à l'écran, en caractères gra- 
phiques, le dessin de l'utilitaire, puis l'on saute directement 
à la ligne 1999 pour initialiser le mode (déplacement pour le 
début). 


Lignes 409 à 519 : déplacement du curseur 


Cette partie du programme teste le clavier et déplace le 
curseur sur l'écran en laissant derrière lui une trace de cou- 
leur blanche ou noire, suivant la fonction en cours, ou replace 
les anciennes couleurs s'il s'agit du mode déplacement. 


La valeur 97 indique un point noir et la valeur 98 un point 
blanc. 


Lignes 1090 à 1020 : changement de mode 
On incrémente simplement la variable M pour des valeurs 
allant de 1 à 3. 


Lignes 2000 à 2129 : décimal 


On calcule, à partir de l'écran (testé par SCRN(,)), les 
valeurs décimales des quatre caractères graphiques. 


Ces valeurs, placées dans la variable D, sont affichées à 
l'écran puis stockées dans la mémoire par l'instruction POKE 
dans le premier jeu de caractères. 
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NOM DU PROGRAMME : PAGE 
AYEZ DU CARACTERE 1/1 


IDENTIFICATION des VARIABLES 


ORIGINE 
OBSERVATIONS 


Caractère tapé au clavier 
Couleur du point en dessous du 
curseur 


Compteur binaire pour le calcul des 
valeurs décimales 





| 





— 
































FM 
FR 
= 
el 
7 
Le 
RER 
FAR 
lee 
BR D 


(*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du PS. 
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L'ORIC A L'AFFICHE 


CHAPITRE 3 


JEUX DE HASARD 


L'ORIC A L'AFFICHE 


JACKPOT 


Voilà un jeu qui peut paraître tout d'abord passif puisque 
le joueur intervient très peu. Mais attention pour le joueur 
acharné : il risque d'en perdre le sommeil ! 


Après avoir tapé RUN, le jack-pot se dessine avec les combi- 
naisons gagnantes. 


Vous appuyez sur n'importe quelle touche et c'est parti. 
Quand les symboles d'immobilisent, si vous n'avez rien gagné, 
votre capital se décrémente de ÿ,29 Franc. Il suffit d'appuyer 
à nouveau sur n'importe quelle touche pour relancer le jeu. 


Quand une combinaison est gagnante, votre gain s'affiche en 
clignotant en bas du jack-pot et votre capital augmente d'au- 
tant. 


Patience, patience, ce jack-pot, digne de ses ancêtres, peut 
vous prendre beaucoup de temps 
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Imtialisation 
des caracteres 
graphiques 


Afficher 
le dessin de 
la machine 





D(I)et T(I) - 
nombres 
aléatoires 


D 
oui 
Descente de 
la poignée 
Montée de 
la poignée 


I 






(nl 
_ 


oui 





® 


non 


Temps = 
Temps-1 






Incrément 





signe 


D(T) =D(1) #1 









J) 
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Afficher le 
symbole 
graphique 


Recherche 
des solutions 
qagnantes 





Afficher 
gain 
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18 RFM JACK-POT 

DB REM ------#-rreuices 

38 CIS:PAPER @:INK 7 

48 GOSUB 2000 

59 C$=CHR$(96):GOSUB 3008 

ba C=10 

LAN RENE 

198 REM LE JEU 

2068 FOR I=1 TO 3 

219 D(T)=INT(RND(1)#8)+1 

220 T(J)=INT(RND(1)*10)+5 

230 NEXT I 

248 GOSUB 1808: GOSUB 1508 

258 FOR I=1 TO 3 

260 IF T(I)=8 THEN 320 

278 T(I)=T(I)-1 

280 D(I)=D(I)+INT(RND(1)*2)+1:1F D(I)>=9 THEN D(I)=1 
290 Z=INT(RND(1)*7)+1 

308 PLOT I=5+8,13,CHRS(Z)+CHRS(87+D(1)#4)+CHRS(88+D(I1)*4)+CHRS(7) 
318 PLOT I=5+8,14, CHRS(Z)+CHRS(89+D(I)#4)+CHRS(90+D(I)*4)+CHR$(7) 
320 NEXT 

330 IF T(1) OR T(2) OR T(3) THEN 250 

380 REM ----------------- 

398 REM GAINS ? 

400 C=INT((C-0.195)#10)/10:CAP=C 

410 D=D(1)#100+D(2)#10+D(3) 

420 Die D(1)*108+D(3) 

430 D=888 THEN C=C+20 

440 FF D=777 THEN C=C+10 

450 IF D=555 THEN C=C+5 

468 IF D=666 THEN C=C+4 

476 IF D1=303 THEN C=C+3 

480 IF D1=202 THEN C=C+2 

490 IF D1=404 THEN C=C+1 

500 IF D1=808 THEN C=C+1 

519 PLOT 2,16,+STR$(C)+CHRS(7)+" " 

520 IF C>CAP THEN 600 

530 ZAP:GET A$ 

540 IF C=0 THEN 800 

550 GOTO 200 

589 REM ------------------ 

590 REM GAGNE 

600 PLOT 17,21,CHR$(12)+CHRS(1)+MIDS(STRS(C-CAP),2)+CHRS(7)+CHRS(8) 
614 PING:GET A$ 

624 PLOT 17,21," Ê 

634 GOTO 200 

DAQ: REM seance ucnaue 

794 REM PERDU 

a44 PILOT 17,21,"MERCI":PLOT 16,22, "POUR LES":PLOT 17,23,"10 FRS" 
814 FXPLODF: GET AS 


#20 PILOT 17,21," ":PLOT 16,22," ":PLOT 17,23," “ 
#34 GOTO 64 

YBQ REM -------------- 

994 RFM DESC. POIGNFF 

1404 FOR 1=11 TO 17 

1414 PIOT 32,1," ":PIOT 32,1+1,"{4{4{":PLOT 32,1+2,"€C€<" 

1U24 NFAT I 

1414 RETURN 

1444 REM ----------------- 


1494 RFM MONT. POTGNFE 

DbÛ FOR [=18 10 11 STEP -1 

1614 FIDI 32,1+2," € ":PLOT 32,1+1,"{{{":PLOT 32,1,"€{€" 
1524 NFXT I 
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1530 
1980 
1990 
2000 
2010 
2020 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2178 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3106 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3208 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
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RETURN 
REM ---------- 
REM GRAPHIQUES 


FOR I=0 TO 263 

READ A:POKE 46808+I,A 

NEXT 1 

RETURN 

DATA @,6,0,1,3,7,15,31,0,0,0,0,32,48,56,60 

DATA 63,31,15,7,3,1,0,6,62,60,56,48,32,0,0,0 
DATA 6,0,0,12,30,63,63,63,0,0,0,24,60,62,62,62 
DATA 63,31,15,7,3,1,0,0,62,60,56,48,32,0,0,0 
DATA 0,0,0,1,3,7,3,9,0,0,0,0,32,48,32,8 

DATA 29,63,29,9,3,7,0,0,28,62,28,8,32,48,0,0 
DATA 0,1,3,7,15,31,63,63,0,0,32,48,56,60,62,62 
DATA 63,31,13,1,3,7,15,0,62,60,24,0,32,48,56,0 
DATA 0,0,1,2,12,30,63,63,15,49,2,4,4,8,8,16 
DATA 30,12,0,0,1,1,0,8,16,16,24,60,62,62,60, 24 
DATA 0,0,0,0,0,0,3,7,0,0,3,4,10,51,51,33 

DATA 31,63,63,63,31,15,0,0,32,32,48,48,32,0,0,0 
DATA 15,31,56,51,38,44,56,40,56,60,14,38,50,26,14,10 
DATA 8,8,24,48,63,1,3,3,8,8,12,6,62,0,32,32 
DATA 0,63,63,0,59,42,42,59,0,63,63,0,46,42,42,46 
DATA 42,42,58,0,63,63,0,0,42,42,41,0,63,63,0,0 
DATA 63,63,63,63,63,63,63,63 


REM ----------------- 

REM DESSIN DU JEU 

PRINT:PRINT "wx wx wx F O£{{{CCCCEL cd cd F" 
PRINT "yz yz yz =20 « { ef ef = 3" 

PRINT "st st st F € ECC 4: "CSA CS" F*; 
PRINT "uv uv uv =10 « { ab ab = 2 "; 
PRINT "k1 KI kl F « 208€ < qh gh F*: 
PRINT "mn mn mn = 5 { € ij ij = 1 
PRINT "op op op F « { wx wx F5 
PRINT "qr qr gr = 4 4 {_yz yz = 1 "; 
PRINT ‘ LELELL CC CCE CCE LLCECELC" 

FOR I=1 TO 15 

PLOT 9,1+9,123:PLOT 30,1+9,123 

IF 139 THEN PLOT 15,1+9,123:PLOT 24,1+9,123 
NEXT I 

PLOT 8,25, "L{{CLLLELCL CCE CEE LEE CEEC" 

PLOT 12,12, "£C£L{{{{{{C{CLELL<L<" 

PLOT 12,13,"4 l l C" 

PLOT 12,14,"< | | qe 

PLOT 12,15, "£C{CL{C{LLLLL{ELCC" 

PLOT 16,19, "{£{{{4{{4<" 

PLOT 31,21,"{{{{":PLOT 31,22,"4{{<€" 

PLOT 2,14,"CAP.:":Y=-1 

FOR I=1 TO 7 

IF I>4 THEN X=25:Y=-9 

PLOT X,1#2+Y,CHR$S(I):PLOT X+9,I#2+Y,CHRS(7) 
PLOT X,1#2+1+Y,CHRS(I):PLOT X+9,I#2+1+Y,CHR$S(7) 
NEXT I 

PLOT 25,7,1:PLOT 34,7,7:PLOT 25,8,1:PLOT 34,8,7 
RETURN 
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LE PROGRAMME 
Lignes 39 à 69 : initialisation 


Après la définition des caractères graphiques (sous-program- 
me en 2999) et le dessin de la machine (sous-programme en 399%@), 
le programme initialise à 19 Francs le capital (variable C). 


Lignes 209 à 330 : Le feu 
Le jeu a besoin des deux tableaux suivants 
- D() donne le symbole de départ à afficher. Les symboles sui- 


vants apparaissent dans l'ordre défini dans le sous-program- 
me en 299. 


- T() donne le temps, c'est-à-dire le nombre de symboles qui 
vont défiler sur la machine. 


Dès que ces deux tableaux sont définis, on manoeuvre la poi- 
gnée en utilisant les sous-programmes en 1999 et 159ÿ (respec- 
tivement descente et montée), puis on affiche les 3 symboles à 
partir de D() pour un temps T(). 


Lignes 400 à 559 : gains ? 


- On commence par décrémenter le capital C de 29 centimes 
puis on place dans CAP le capital restant. 


, 


- En additionnant D(1) à D(3), on obtient un chiffre qui sert 
de comparaison avec les solutions gagnantes (variable D). La 
variable Dl ne prend en considération que les deux extrémités 
de la combinaison. 


- On compare D et Dl aux solutions gagnantes et on incrémente 
le capital (variable C). 


Quand C est supérieur à CAP, on gagne quelque chose. On va 
alors à la ligne 699 pour afficher le montant des gains 
sinon on retourne à un nouveau jeu. 


’ 


Lignes 600 à 630 : gains ! 


On affiche en clignotant le gain tant que l'on n'appuie pas 
sur une touche. 
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NOM DU PROGRAMME : PAGE 
JACK-POT 1/1 


IDENTIFICATION des VARIABLES 


ORIGINE 
OBSERVATIONS 


pr Touche tapée au clavier 


es RER (n'existe pas sur le 
Capital avant totalisation des gains 
Somme des combinaisons sorties 


Somme d'une partie des combinaisons 





o 


Tableau 


[=] 
_ 


Signe à afficher 


O 





Boucle FOR/NEXT 





: 





Temps de défilement des signes 








Coordonnées utilisées pour le 
dessin du jack-pot 








T,() | 
É 



































(*}) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du P.S.I. 
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BACCARA 


Si vous rêvez de l'ambiance feutrée mais exaltante des casi- 
nos, entrez dans le jeu et osez manipuler des sommes fabuleu- 


ses. 


Un crédit de 19 999 Francs vous est attribué au début de la 
partie. La banque - votre adversaire - tire quatre cartes d'un 
sabot composé de 8 jeux de cinquante deux cartes. Toutes les 
cartes conservent leurs valeurs nominales de l'as (1) au neuf ; 
les figures et le dix ne valent rien. Pour obtenir la valeur 
totale d'un jeu, on additionne les valeurs de chaque carte en 
ne retenant que le chiffre des unités. 


A chaque donne, l'ordinateur affiche les cartes ; de même, 
tout au long du jeu, il indique en bas de l'écran les mouve- 
ments en cours ainsi que votre mise et vos gains. 


La banque donne tout d'abord au ponte - c'est vous - deux des 
quatre cartes et garde les deux autres pour elle. 


Vous regardez vos cartes et vous vous trouvez alors devant 
quatre possibilités pour parler 


- vous avez 8 ou 9, c'est-à-dire une main naturelle : c'est au 
banquier de parler ; 
- vous avez 6 ou 7 : vous ne prenez pas d'autre carte : 


- vous avez 5 : vous choisissez ou non de prendre une 


une autre carte ; 
- vous avez entre ÿ et 4 : vous prenez obligatoirement une au- 


tre carte. 


Seule la 3ème carte que vous aurez pu tirer est visible du 
banquier. 


Puis le banquier parle. Si vous avez 8 ou 9, il faut compa- 
rer les jeux. Sinon le banquier a le choix de prendre ou non 
une carte (choix déterminé par un tableau dans le programme). 


A ce moment là, toutes les cartes sont retournées ; le joueur 
le plus près de 9 gagne la partie. 


En tapant sur n'importe quelle touche vous obtenez vos gains 
et vous pouvez miser pour un autre tour. 


Le jeu reprend jusqu'à disparition de tout votre capital ... 


# 


EX 











| FORTE. FEE 
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Initialisation: 
lecture des 

caractères 
graphiques 







Gain-40.000F'5 







T$ : Fableau des 
jeux possibles 
du banquier 











Mettre à zero les 
valeurs du Fableau 
des cartes 








Tirage de six 
cartes P(4)a P(6) 












T =fotal des 
cartes du ponte 











B- total des 


cartes du banquier 









AFFicher les 
cartes du ponte 
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oui Afficher carte 
du banquier 
a A VS 


non Afficher 
*eatke” T=T+P(s) 





oui 












Entrer oui ou non 
pour Une carte 













Afficher 3ême 
carte du ponte 









Afficher carte 


du banquier 





129 


L'ORIC A L'AFFICHE 


CD où 


Choix dans 
le Fableau 


T$ 


> 


oui Afficher 
S non” 












Afficher 


“ carte [2 


TB-TB+P(e) 


non Afficher 
exae quo” 


Afficher 
‘banque gagne") 
Décrémenter le 
ponte de sa mise 





non 





A 
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19 REM BACCARA 

20 REM --------------- 
30 GOSUB 2008:CLS 

50 PRINT:PRINT TAB(26)+CHR$(4)+CHRS(27)+"JBACCARA"+CHRS(4) 
200 J5="123456789XVDR" 

219 G=10800 

220 DIM J(13,4) 

230 T$(3)="TTTTTITIRITT'" 

248 T$(4)="RRTITTTTRRT" 

250 T$(5)="RRRRTTTTRRT" 

260 TS$(6)="RRRRRRTTRRR" 

270 INK 1:PAPER 4 

280 PLOT 10,10,"JE MELANGF LES CARTES" 
290 FOR I=1 TO 13 

300 FOR K=1 TO 4 

314 J(I,K)=0 

320 NEXT K 

330 NEXT 1 

340 NC=0 

350 REM ------------------ 
360 REM MISF DU PONTF 

374 CLS 

380 PRINT "MISE (MAXI ";G;" FRS) "à 
394 [INPUT M 

anû TF (M>G)+(M<=h) THEN 370 
414 RÈM ---------------""- 
429 RFM TIRAGF ht 6 CARTES 
430 FOR [=1 10 6 

44û P(T)=4 

450 F=INT(RND(1)*13)+1 

464 C=INT(RND(1})+*4)+1 

474 IF J(F,C)>=24 THEN 450 


480 J(F,C)=J(F,C)+1 
490 TF F>9 THFN 514 
san P(T)=F 

510 S(I,1)=F 

h/4 S(T,2)=0 

530 NFXT 1! 

544 T=P(1)+P(3) 

SS4 TF T<iû THEN 574 
564 T=T-10 

574 TBR=P(7)+P(4) 

SU IF TRÇIU THEN 670 


594 TRA=TR-10 

bQ REM ---------------- 
bI4 RFM AFFICHAGE NFS CARTES 
b2Q CLS 

h39 PRINT-PRINT TAR(?h)+CHRS (4 )+CHRS(27)+"JRACEARA"+CHKS (4) 
b4@ PLGT 14,4,"*x PONIE ** 

658 FLOT 14 13,"* RANOUF «" 

bGA FLOT 5,25, "PONTF: "+STRS(G)+CHRS(S)+"  MISF:"4STRS(M) 
b74 X=14:Y=h:[=1:G0SUR 1b4u 

680 X=15:1=3: GOSUR 1644 

b94 N=4 

700 FF f<>9 AND T<># THFN 848 

FIG N=1:-G0710 1460 

184 RFM ------------------ 

790 RFM CHOIX OU PONTE 

HhQ IF T<=zs THEN 854 

814 F(S)=18 

#20 MS="xPONTF NONx" 

834 GOSURB 1544 
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840 

854 

860 

874 

880 

894 

900 

914 

920 

944 

950 

970 

980 

1800 
1810 
1020 
1434 
1860 
1100 
1130 
1140 
1150 
1164 
1170 
1180 
1190 
1200 
1210 
1220 
1250 
1260 
1270 
1280 
1298 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1418 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1520 
1530 
1540 
1550 
1560 
1570 
158 
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> 


LS 


GOTO 10274 

TF T=5 THFN 974 
MS="#PONTE CARTF x" 
GOSUR 154% 

T=T+P(5) 

IF T<i0 THFN 984 
T=T-10 
GOTO 984 
PUOT 12,23,CHR$S(7)+"CARITE (O/N) 2?" 
GET A$ 

IF A$="O" THEN 880 
P(5)=10 
PLOT 10,23: # 

REM ----------------- 

REM CHOIX DE LA RANQUE 

TF P(5)=104 THEN 1060 

X=20:1=5: GOSUR 1608 
X=10:Y=15:1=2:GOSUR 1604 
X=15:1=4:GOSUR 1600 

IF N=1 THEN 1300 

IF TR<3 THEN 12844 

IF TR>6 THEN 1178 

TF MIDS(TS(TBR),P(5)+1,1)="T" THEN 1204 
M$S="#BANQUE NON+«" 

GOSURB 1540 

GOTO 1300 

M$S="#RANQUE CARTE#" 

GOSUB 1548 

X=20:1=6: GOSUR 1688 

TB=TB+P(6) 

IF TB<1Q@ THEN 13084 

TB=TB-14 

REM ----------------- 

REM RESULTATS 

IF T<>TB THEN 1340 

M$="#EXAFQUOX" 

GOSUB 1540 

GOTO 1428 

IF T>TR THEN 1390 

M$="#BANQUE GAGNE +" 

GOSUB 1540 

G=6G-M 

GOTO 1428 

M$="PONTE GAGNE"+STRS(M)+CHRS(5)+"FRS#" 
GOSUB 1548 

G=G+M 

NC=NC+1 

GET A$ 

IF G<=0 THEN 14784 

IF NC>=204 THEN 27/8 

GOTO 37@ 

CLS 

PRINT"MERCI POUR LES DIX MILLE FRANCS":PRINT 
PRINT'LE CASINO ACCEPTE LES CHEQUES" 
END 

REM ----------------- 

REM MESSAGE 

PLOT 17-LEN(M$S)/2,23,CHR$S(3)+CHRS(12)+MS$+CHRS(8) 
PING:WAIT 568 

PLOT 0,23," “ 
RETURN 

REM --=----2------s-s 
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D 


1600 
1610 
1620 
1630 
1644 
1650 
1660 
1674 
1680 
1690 
1980 
1998 
2000 
2010 
2020 
2030 
2840 
2050 
2060 
2180 
2110 
2120 
2130 
2148 
2150 
21680 
2170 
2180 
2198 
2208 
2èl4 
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REM AFFICHE LES CARTES 
FOR J=0 TO 7 

PLOT X,J+Y,L$(U+1) 

NEXT J 

K=93+S(I,2)%4 

PIOT X+42,Y+1,MINS(US,S(I,1 
PLOT X+5,Y+4,MIDS(JS,S(I,1 


1,1) 
) 
IF S(1,2)>2 THEN Z=0 FISE 2 
K 
k 


1 
11) 

=] 
J+CHRS(K+1) 
+2)+CHRS(K+3) 


PLOT X+2,Y+2, CHRS(Z)+CHRS( 
PLOT X+2,Y+3, CHRS(Z)+CHRS( 
RETURN 

REM 
REM GRAPHIQUES 

FOR I=0 TO 191 

READ A:POKF 46856+1, A 


$(1): 

$(3) 
MES 
RETUR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Te 
wm: 
x 
= — 
= 


Hoi (2 MECHRS(7)+"x" 
:L$(4)=L$S(2):LS$ 
) 


+'rvvvvt" 


sre 

S ZIvzr 
D 
ANRT 
NON 


AR = 
D 


D Go 
nv o- 
De - + © 
do N- 
D 


= © DD nn O- 


D © 
+ ®- ©- 
w+ + w- 
Lo 
Ve S+ NN 
Le dre 
œx- o- 
B* N° 


DES 


= © @- 
Lower rs 


Sb- - RO OUS o- 
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SvoBE- 
D+ - + + ToHDBERBS- 


DA + + 
LAS re D NN ma 
D 


ST SHSsSZz H NH I 
D + - 
Ts bE- 
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= 
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LE PROGRAMME 
Lignes 30 à 340 : initialisation 


Après la définition des caractères graphiques des quatre 
couleurs (sous-programme en 2999), on place dans le tableau T$ 
les décisions que prendra le banquier. Chaque liste du tableau 
contient onze informations. Les dix premières correspondent à 
la valeur de la carte tirée par le ponte (entre ÿ et 9). La 
onzième précise que le ponte n'a pas pris de carte. 


La lettre T conseille au banquier de tirer, alors que R 
l'incite à rester. Chaque ligne correspond au jeu du banquier. 
Seules sont représentées les solutions pour les valeurs compri- 
ses entre 3 et 6 puisque le banquier tire toujours une carte 
quänd il a moins de 3 points et refuse quand il en a plus de 
6. 


Le tableau J correspond au sabot. Il est remis à zéro quand 
les cartes sont toutes tirées. 


Lignes 370 à 400 : mise au ponte 


On saisit la mise du ponte à condition qu'elle ne soit pas 
supérieure au capital et qu'elle ne soit pas nulle. 


Lignes 430 à 599 : tirage des cartes 


On tire 6 cartes dans le sabot, F correspondant à la figure 
de la carte et C à la couleur. On incrémente le tableau J de 
l ; celui-ci ne doit jamais dépasser 8 puisqu'il n'y a que 


8 jeux de 52 cartes. 


Lignes 800 à 980 : choix du ponte 
Après l'affichage des cartes du ponte, celui-ci peut choisir 
une carte uniquement si le total de ses points est égal à 5. 


Dans les autres cas, on suit les règles exposées dans l'in- 
troduction de ce chapitre. 


Lignes 1029 à 1270 : choix du banquiex 


Le banquier tire ou non une carte suivant les données du 
tableau T$ (voir les explications des lignes 39 à 349). 


Lignes 1309 à 1500 : nésultat et fin 


Pour les résultats, il suffit de comparer les jeux du ponte 
et du banquier (variable T et TB). On les affiche à l'écran 
ainsi que les gains du ponte. Si ce dernier a toujours de 
l'argent, on continue la partie. 


Dans le cas où le nombre de cartes déjà tirées dépasse 2ÿ4, 
on remet le tableau J à zéro avant une nouvelle partie. 
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DATE NOM DU PROGRAMME : PAGE 
BACCARA 1/1 


IDENTIFICATION des VARIABLES 









OBSERVATIONS 


Choix du ponte 
Drapeau dans l'instruction CALL KEY 





















Boucle FOR/NEXT 


Ai$ 
C 
F 





CG |o 
A 





Constante 


Q | tableau | 


L'indice | | 
Tableau ä 


Cartes du jeu : 13 cartes de 
4 couleurs 


Boucle FOR/NEXT 















[er 





Dessin des cartes 





Variable 


Variable Message à afficher 





Aiqguillage N=1 si main naturelle 





z CR PS 

o A 
= 
— 


Nombre de cartes utilisées 





Tableau Valeur des cartes de la partie 


T 
— 
—_ 





Tableau Cartes en jeu 





= In 
| 





Total des cartes du ponte 


Compteur 





iste des choix du banquier : 
: conseille de tirer 1 carte 


: incite à rester à 2 cartes 


Total des cartes du banquier 


Coordonnées des cartes 


27-17 


= 
ke 


unes [hTT 


{*) Légende : aiguillage, compteur, constante, index, indice, tableau, variable. Reproduction interdite(c )Editions du P.S.I 





T,B 
X 
Ÿ 


sur l'écran 
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